- 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;
 

