Neue Klasse soll Werte übernehmen.

[sirius]

Überschreibe mal in deiner Klasse TItem die protected Methode AssignTo mit folgendem:

Delphi-Quellcode:

Uses TypInfo
...
procedure TItem.assignto(Dest:TPersistent);
var count,i:integer;
    List:PProplist;
    Info:PPropInfo;
begin
  count:=GetPropList(self,List);
  try
    for i:=0 to count-1 do
    begin
      Info:=List^[i];
      setpropvalue(dest,Info^.Name,getpropvalue(self,Info^.Name));
    end;
  finally
    freemem(list);
  end;
end;

Dann dürftest du Assign verwenden können und wenn wir Glück haben werden alle Published Properties kopiert.