procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  Label1.Caption := 'x=' + IntToStr(p.x);
  Label2.Caption := 'y=' + IntToStr(p.y);
end;