Änderungen an der Mausposition warnehmen?

[Dash]

Hallo,

ich habe ein kleines Problem mit der Abfrage der Mausposition.
Die Abfrage selber ist ja über GetCursorpos() kein Problem, aber wie kann ich sofort feststellen das die Position sich geändert hat?

Hier mein bisheriger Code:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  newPos: TPoint;
begin
  GetCursorPos(newPos);
  if (oldPos.X <> newPos.X) or (oldPos.Y <> newPos.Y) then
  begin
    // Aktion ausführen
  end;
end;

Wie frage ich nun die alte Position dauerhaft ab?
Edit: Das ganze soll Systemweit geschehen, also bringt mir das OnMouseMove Event von ApplicationEvents sehr wenig.

Gruß
Dash