var
    orginal : TFooClass;
    kopia : TFooClass;

begin
    orginal := TFooClass.Create;
    orginal.SetName('Kalle');
    kopia := TFooClass.Create;
    kopia.assign(orginal);  // Assign klassen måste man dock själv implementera, om det är ens egen klass :(
    kopia.SetName('Olle');