[mak-karpov]

Все уже сам нашел

Код:

type
  TRGB32 = packed record
    B, G, R, A: Byte;
  end;
  TRGB32Array = packed array[0..MaxInt div SizeOf(TRGB32)-1] of TRGB32; 
  PRGB32Array = ^TRGB32Array;

Потом как обычно

Код:

function getPixel(x, y : ineteger) : tcolor;
var l : prgb32array;
begin
   l := bitmap.ScanLine[y];
   result := rgb(l[x].r,l[x].g,l[x].b);
end;