void __fastcall TForm1::Image1Click(TObject *Sender) // en el OnClick del Image1
{
TPoint P;//creo un objeto P del tipo TPoint
GetCursorPos(&P);//llamo a la funcion mandando el TPoint x referencia
ShowMessage(P.x);//muestro el valor que adquiere x
ShowMessage(P.y);//muestro el valor que adquiere y
}