var
bmp:tbitmap;
acolor:tcolor;
R,B,G:integer;
begin
bmp := TBitmap.create;
bmp.Picture.LoadFromFile('test.bmp');
bmp.PixelFormat:= pf24bit;
AColor := bmp.Canvas.Pixels[i,j];
R := GetRValue(AColor);
B := GetBValue(AColor);
G := GetGValue(AColor);
end;