Was ist denn so schwer daran?
* Zeit messen und speichern
* warten bis aktuelle Zeit zu gemessener Zeit mehr/mindestens 10 Sekunden enspricht
** dann die neue aktuelle Zeit speichern
oder
* Zeit Messen + 10 Sekunden und speichern
* warten bis aktuelle Zeit zu gemessener kleiner als gespeicherte
** dann die neue aktuelle Zeit + 10 Sekunden speichern
Delphi-Quellcode:
T := GetTickCount; // oder eine andere Zeitfunktion
while True do begin
if Integer(GetTickCount - T) > 10 * MSecPerSec then begin // Integer wegen eventuellem Überlauf, wenn der Rechner mehr als 48 Tage läuft
T := GetTickCount;
Sleep(10 * MSecPerSec);
end;
...
end;