delay problem!

[Luckie]

Frag mich bitte nicht, was da los ist. Meiner geht, deiner nicht:

Delphi-Quellcode:

procedure delay(msec:longint);
var 
  start,stop:longint;
begin 
  start := gettickcount;
  repeat 
    stop := gettickcount;
    application.processmessages; 
  until (stop - start ) >= msec;
end;

// smax
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 60 downto 0 do;
begin
Application.ProcessMessages;
panel1.caption:='Noch ' + IntToStr(i) + ' Sekunden';
Delay(1000);
end;
end;

// Luckie
//procedure TForm1.Button1Click(Sender: TObject);
//var
//  i : Integer;
//begin
//  for i := 60 downto 0 do
//  begin
//    Application.ProcessMessages;
//    Panel1.Caption := 'Noch '+IntToStr(i)+' Sekunden';
//    Delay(1000);
//  end;
//end;

Aus irgendeinen Grund wird bei dir Delay nicht richtig ausgeführt.

sakura hat den Unterschied gefunden: Mach das Semikolon nach dem do mal weg.