Eigenes Objekt kopieren

[Jakane]

Hallo liebe Delphi-Helfer

Ich nutze für mein Projekt verschiedene selbst gebaute Objekte.
z. B.:

Code:

  TAufgabe = class(TObjekt)
  private
  public
    Projekt: TProjekt;
    Anforderung: String;
    VonMitarbeiter: TMitarbeiter;
    FuerMitarbeiter: TMitarbeiter;
    Mitarbeitergruppe: TMitarbeitergruppe;
    Hauptaufgabennummer: Integer;
    Taetigkeitstyp: TTaetigkeitstyp;
    Status: TAufgabenstatus;
    Allgemein: Boolean;
    Gesehen: Boolean;
    Prioritaet: Integer;
  end;

Gibt es eine einfache Möglichkeit so ein Objekt 1:1 zu kopieren, ohne das ich Funktionen schreiben um jeden einzelnen Wert zu übergeben?

Code:

procedure TAufgabeBearbeitenF.FormShow(Sender: TObject);
begin
  // Aufgabe laden
  AufgabeAlt := TAufgabe.LoadFromDatabase(Aufgabennummer, PV.Mitarbeiter.Nummer);
  AufgabeNeu := AufgabeAlt;
  AufgabeAlt.Version := '123';
  AufgabeNeu.Version := '456';
  ShowMessage(AufgabeAlt.Version + ' ' + AufgabeNeu.Version);

Als ShowMessage kommt so leider "456 456" raus statt "123 456"