Wiederholung bei gedrückter taste

[schrimm]

also bewegen tut sich da schon alles, das problem ist nur , dass es am anfang durch diese Eigenschaft der Tastatur ert nur 1 macht, dann den rest.
erklärung: ani gibt an, welche animation ablaufen soll, 11 ist laufen rechts

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ani in [11..14] then
begin
 Twait.enabled:=false;
 Tani.enabled:=true;
 case key of
  vk_right:
   begin
    ani:=11;// 1=gehen 1=rechts
   end;
 end;
end;

procedure TForm1.TaniTimer(Sender: TObject);
begin
 case ani of
  11:
   begin
    Ilaufr.left:=Ilaufr.left+5;
   end;
 end;
end;

also nur mal auf das minimale begrenzt