TLabel Probleme beim freigeben

[RaGro]

Hallo @mkinzler

Delphi-Quellcode:

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

ok, habe ich geändert, jedoch ist mein Problem noch immer das gleiche und auch die Gleiche Fehlermeldung.

Mein programmtext war nicht ganz so schön, da ich durch das löschen meiner TImages und TMemos bedingt, meinen Zähler um 1 reduziert habe,
aber man weiß ja nie ob es nicht doch auswirkungen hat....

Vielen Dank auch das du dich meines Problems annimmst

Grüsse

Rainer Groer

[edit=Matze][delphi]-Tags eingefügt.
Wie bereits geschrieben wurde: Bitte schließe deinen Source zukünftig selbst in die [delphi]-Tags ein. MfG, Matze[/edit]