[ecfisa]

Hola noob.

También podrías hacer la creación y copia de los atributos en un paso:

Código Delphi [-]
function cMyClass.Clone: cMyClass;
begin
  Result := cMyClass.Create;
  Move(Self, Result, SizeOf(Self));
end;

Saludos.