Параметр функции SetCursorPos(X,Y);

unit Unit5;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TForm5 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;
        X,Y:Integer;
implementation
 
{$R *.dfm}
               { Label1.Text:='00:00';            }
 
procedure TForm5.Label1Click(Sender: TObject);
begin
 { function SetCursorPos(X,Y);
end;          }
                        {   ShowMessage('сегодня понедельник 20-е число.');           }
                            ShowMessage('X: ',+IntToSring(SetCursorPos(X,Y)));
 { ShowMessage('NormalInteger :     '+IntToStr(NormalInteger));    }
end;
 
end.

ShowMessage('X: ',+IntToSring(SetCursorPos(X,Y)));

ShowMessage('X: '+IntToStr(Integer(SetCursorPos(X,Y))));

var
P: TPoint;
begin
GetCursorPos(P);
ShowMessage('X: '+IntToStr(P.X));
end;

procedure TForm5.Label1Click(Sender: TObject);
var p:TPoint;
begin
   GetCursorPos(p);
   ShowMessage('X:'+IntTpStr(p.X)+'  Y:'+IntToStr(p.Y));
end;