Zeit ablaufen lassen

[Danny87]

Du kannst alternativ zu einem Timer auch eine Schleife bauen. Ist aber nicht die Optimale Lösung.

Delphi-Quellcode:

...
var  i : integer;
begin
for i := 14 downto 0 do
  begin
  Sleep(1000);
  Application.Processmessages;
  end;
ShowMessage('Countdown abgelaufen');
end;

gruss daniel