procedure TForm1.Image1MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
var
rgb: DWORD;
begin
rgb := Image1.Picture.Bitmap.Canvas.Pixels[x, y];
Label1.Caption := inttostr(GetRValue(rgb)) + ' : ' +
inttostr(GetGValue(rgb)) + ' : ' +
inttostr(GetBValue(rgb));
end;
