1 procedure TForm1.FormClick(Sender: TObject);
2 var
3   P: TPoint;
4 begin
5   GetCursorPos(P);
6   Self.Caption := Format('X: %d, Y: %d',[P.X, P.Y]);
7 end;