1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var row : ^trgbtriple;
    i: Integer;
    Datei: File;
begin
 Image1.Picture.Bitmap.LoadFromFile('d:\windows\desktop\aaa.bmp');
 Image1.Picture.Bitmap.Pixelformat := pf24bit;
 row := Image1.Picture.Bitmap.Scanline[31];
 for i := 0 to 31 do begin
 ShowMessage(InttoHex(ColorToRgb(Image1.Canvas.Pixels[0,i]), 6));
 ShowMessage(inttostr(row^.rgbtred)+Inttostr(row^.rgbtgreen)+IntToStr(row^.rgbtblue));
 Inc(row);
 end;
end;