alles deaktivieren (neuse Problem)

[APP]

Hallo,
ich hbe es mal ein bißchen "auseinanderdividiert"

Delphi-Quellcode:

VAR
   a                               : integer;
   aEdit                           : TEdit;
BEGIN
   FOR a := 1 TO 3 DO
      BEGIN
         aEdit := TEdit(FindComponent('Edit' + IntToStr(a)));
         listbox1.items.add((aEdit AS TEdit).Name);
      END;
END;

[EDIT] auf "Edit" umgestellt [/EDIT]