Booleanabfrage eines timers

[Markus]

Und ich hätte nen Vorschlag: machs doch so (brauchst ne Listbox), sonst musst du immer ok, ok, ok usw. klicken.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    status: boolean;
begin
listbox1.clear;

for i:=1 to 10 do begin
   status:=TTimer(FindComponent('timer'+inttostr(i))).Enabled;

   if status then listbox1.items.add('Timer'+inttostr(i)+': aktiv')
   else listbox1.items.add('Timer'+inttostr(i)+': inaktiv');
end;
end;