Schussfrequenz

[chaoslion]

Hey Danke für die schnellen Antworten
Habs folgendermaßen probiert

Delphi-Quellcode:

var
  Form1: TForm1;
  x:longword;
  count:integer=0;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  x := GetTickCount;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if  GetTickCount - x >= 5000 Then
  begin
    listbox1.Items.Add('schuss '+inttostr(count));
    inc(count);
    X := GetTickCount;
  end;
end;

Aber immer wenn ich die Maus bewege, füllt er ohne Verzögerung die Listbox.. woran liegt das?