TLabel Probleme beim freigeben

[DeddyH]

Delphi-Quellcode:

for x := componentcount-1 downto 0 do
   begin
     if ((components[x])is TLabel) and (components[x].Name<>'Label1') and (components[x].Name<>'Label2') and 
        (components[x].Name<>'Label3') and (components[x].Name<>'Label4') and (components[x].Name<>'Label5') and
        (components[x].Name<>'Label6') then
       TLabel(components[x]).free;
  end;