- procedure wasauchimmer;
- var fstart,fend:integer; // ich mein es ging auch longword...
- begin
- repeat
- fstart:=gettickcount; // "Startzeit" des Frames
- //Zeichnen, Berechnen etc.
- fend:=gettickcount; // "Endzeit"
- while fend-fstart<25 do fend:=gettickcount; // So lange wiederholen bis die Differenz zwischen fend und fstart < 10
- Millisekunden ist.
- until stop
- end;