Ja gut es geht aber immernoch net:
Delphi-Quellcode:
if Edit1.Text < '1' then Application.MessageBox('Sie müssen eine Zahl eingeben die größer als 0 ist!','Fehler',16);
ending:=StrToInt(Edit1.Text)*60;
calc:=ending;
for i:=0 to ending do;
begin
Application.ProcessMessages;
calc:=calc-1;
panel1.caption:='Noch ' + IntToStr(calc) + ' Sekunden';
delay(1000);
end;
Eigentlich sollte er nun die Sekunden runterzählen und anzeigen aber es steht nur:
Noch 59 Sekunden