Kopiera instans i Delphi

var
    orginal : TFooClass;
    kopia : TFooClass;

begin
    orginal := TFooClass.Create;
    orginal.SetName('Kalle');
    kopia := orginal // Här vill jag egentligen göra en kopia av orginalet.
    kopia.SetName('Olle');

    // Nu är det meningen att kopia och original skall ha olika namn.
    // Vilket inte är fallet med ovanstående kod då vi inte gör någon kopia av originalet.