Ich hab zwei Beispiele mit TTimer. Der eigentliche Aufwand dreht sich eigentlich nur um OnTimer.
Delphi-Quellcode:
type
TMyTimer = class(TTimer)
public
procedure TimerTick(Sender: TObject);
end;
...
In dem Sinne wollte ich Dir gestern eigentlich antworten, hatte das dann aber verworfen weil ich meinte, Du suchst eine andere Lösung (ohne TTimer).