function RatonAImagenX(Imagen: TImage; x: integer): integer;
begin
Result:= (x * Imagen.Picture.Width) div Imagen.Width;
end;
function RatonAImagenY(Imagen: TImage; y: integer): integer;
begin
Result:= (y * Imagen.Picture.Height) div Imagen.Height;
end;
Color:= Image1.Canvas.Pixels[RatonAImagenX(Image1,X), RatonAImagenY(Image1,Y)];