Der Fehler kommt bei GetName.
Liebe Grüße
EDIT:
Ich habe das Problem jetzt selbst gelöst. Beim Löschen habe ich aus
Delphi-Quellcode:
Self.MyComps[i].Free;
Self.MyComps[i]:=tComp.Create(Self.GetCompById(i+1).GetId,Self.GetCompById(i+1).GetName);
Delphi-Quellcode:
if IssetComp(i+1)
then
begin
Self.MyComps[i].Free;
Self.MyComps[i]:=tComp.Create(i,Self.GetCompById(i+1).GetNameValue);
end;
gemacht.
Liebe Grüße