{
Shows the color of a canvas pixel at the current mouse position:
Zeigt die Farbe des Pixels eines Canvas an der jeweiligen Mausposition an:
}
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Color := Image1.Canvas.Pixels[x, y];
end;