[Amin_Mansouri]

Get the pixel color in a canvas on the mouse position

کد:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Form1.Color := Image1.Canvas.Pixels[x, y];
end;