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]