Dann ergänz doch einfach die TSprite-Klasse um diese Methode
Da werden letzt endlich ja nur die Eigenschaften und Felder zugewiesen.
Muster:
Delphi-Quellcode:
procedure TSprite.Assign(source:TPersistent);
begin
if (source is TSprite) then
begin
field1 := source.field1;
:
Property1 = source.property1;
:
end;
end;