Posisi Cursor

procedure TForm2.Timer1Timer(Sender: TObject);
begin
Edit1.Text := inttostr(Mouse.CursorPos.X) ;
Edit2.Text := inttostr(Mouse.CursorPos.Y) ;

end;