Objekt duplizieren?

[spaxxn]

Delphi-Quellcode:

procedure CopyComponent(AComponentChild, ACopyOfComponentChild: : TComponentChild);
var
  locMS                         : TMemoryStream;
begin
  locMS := nil;
  try
    locMS := TMemoryStream.Create;
    try
      locMS.WriteComponent(AComponentChild);
      locMS.Position := 0;
      locMS.ReadComponent(ACopyOfComponentChild);
    except
      raise Exception.Create('Fehler beim Kopieren des Objektes');
    end;
  finally
    locMS.Free;
  end;
end;

Es wird dabei davon ausgegangen, das beide übergebenen Parameter bereits instanziert sind.

Vielleicht kannst was damit anfangen.