PEGANDO A COR COM O MOUSE

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