Timer in einer Schleife!!

[daNiii]

Hallo!

In meinem Programm möchte ich einen Prozess 20 mal durchlaufen lassen. - Deshalb habe ich eine Schleife erstellt (wie unten nachgestellt). Während dem Durchgang sollte das Programm eine kurze Pause einlegen. In dieser Zeit soll der Benützer ein EditFeld ausfüllen können.
Danach soll die Schleife ungestört weiterlaufen und den Timer bei jeden Durchgang aktivieren.


Ich hoffe ihr könnt mir helfen.

Delphi-Quellcode:

procedure TForm1.Start1Click(Sender: TObject);
var
I: integer;
begin
For I := 1  to 20 do begin
    Fragestellung();
    
// -> [b]Hier möchte ich den Timer aktivieren[/b] <-
      
     Edit1.Visible:= false;
    if Edit1.Text = Label1.caption then
    begin
    RoderF.Font.Color:= clgreen;
    RoderF.Caption:= 'Richtig!!!';
    end else begin
     RoderF.Font.Color:= clred;
     RoderF.Caption:= 'Leider falsch!';
    end;
    Label1.Visible:= true;
    
Label1.Visible:= false;
Label2.Visible:= true;


end;

showmessage('Das Spiel ist beendet');
lb_green.Caption:= '';
lb_blue.Caption:= '';

 end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   

end;

DANKE !!

[edit=Sharky]Pre-Tags eingefügt. Mfg, Sharky[/edit]
[edit=mkinzler]Delphi-Tag ist besser, da Fettschrift bei Pre auch nicht funktioniert Mfg, mkinzler[/edit]