TBItmap scanline

[AirPas]

@Lifepower : thanks , i also didn't swap the color
so this is the correct code

procedure SetScanLinePixel(x,y: integer; c : cardinal; var _bmp : TBitmap);
type
  pRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = array[0..32768-1] of TRGBTriple;
var
  raw : pRGBTripleArray;
begin
  raw := _bmp.ScanLine[y];
  raw[x].rgbtRed    :=  ( c and $ff);  
  raw[x].rgbtGreen :=   ( c shr 8 ) and $ff;
  raw[x].rgbtBlue   :=  ( c shr 16) and $ff;  
end;