Pause in procedure einbauen...?

[Mucki]

Kann keine Schleife um das delay legen, so das z.B. das senden & empfangen
mehrmals durchlaufen wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i     : integer;
pause : word;
 begin
   for i := 1 to 5 do
   begin
   label1.caption := 'bitte warten';

   delay(500);

   label1.caption := 'pause vorbei';
   pause := i ;
   end;
 end;

Warum?