Delphi: Get Mouse Position in Firemonkey application

var
  p: TPointF;
begin
  p := Screen.MousePos;
end;

---