1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

repeat
// Nun kommen diverse Befehle, die ich mir hier spare
:
:
:
:
:
// hier sollte nun eine Pause eingefügrt werden
:
until abbrechen=true;					

1:
2:

zeit:=gettickcount+30000;
while gettickcount<zeit do application.processmessages;					

1:

while gettickcount<zeit do begin application.processmessages; Sleep(25); end;