Maus Position ändern??

[TitanNano]

so ich habe jetzt folgenden Code:

Delphi-Quellcode:

procedure TForm1.keyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if start then
begin
 m.X:= Mouse.cursorPos.X;
 m.y:= Mouse.cursorpos.Y;
 case Key of
    Ord('W') : m.Y:= m.Y-5;
    Ord('A') : m.X:= m.X-5;
    Ord('S') : m.Y:= m.Y+5;
    Ord('D') : m.X:= m.X+5;
    end;
 Windows.SetCursorPos(m.X, m.Y);
 end else
 begin
  if char(key) = 'J' then
   begin
    start:= true;;
    showmessage('Steureung gestartet!!');
    end;
  end;
end;

Doch bewegen tut die Maus sich immer noch nicht.