Die Assign-methode ist dafür zuständig:
Delphi-Quellcode:
var
CopyObjekt: TMyObjekt;
begin
CopyObjekt := TMyObjekt.Create(...);
CopyObjekt.Assign(UrspruenglichesObjekt);
end;
Vorrausetzung ist natürlich das die Assign-Methode implementiert ist und nicht nur die Methode der Basisklasse verwendet wird und damit ein unvollständige Kopie erzeugt.