MousePosition in dynamischer Klasse

[aaaaaaaaaaa_10]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure TimerOnTimer(Sender: TObject);
  private
    FXpos,FYpos: Integer;
  public  
  end;


implementation

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  FXpos := X;
  FYpos := Y;
end;

procedure Tform1.TimerOnTimer(Sender: TObject);
begin
  //Aber was muss dann hier stehen, damit der Richtungswechsel registriert wird, 
  //was mein Vorgänger ja erfragt?
end;