delay problem!

[smax]

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if Edit1.Text < '1' then Application.MessageBox('Sie müssen eine Zahl eingeben die größer als 0 ist!','Fehler',16);
for i:=60 downto 0 do;
begin
Application.ProcessMessages;
panel1.caption:='Noch ' + IntToStr(i) + ' Sekunden';
delay(1000);
end;
end;