Delphi-Quellcode:
for i := 0 to self.ComponentCount-1 do
begin
self.Components[i].ClassName = 'TTimer' then
if (self.Components[i] as TTimer).Enabled then
inc(anz);
Liefert dir die Anzahl aktiver Timer
Und dieses dann für alle Forulare um die Timer aller fenster zu bekommen.