TObject kopieren und zuweisen

[shmia]

Du musst deine Objekte von TPersistent ableiten (und nicht direkt von TObject) !!
Dann musst du die Methode Assign überschreiben:

Delphi-Quellcode:

procedure TAdresse.Assign(Source: TPersistent);  // override;
var
   i: integer;
begin
   if Source is TAdresse then
   begin
      for i := Low(FNamen) to High(FNamen) do
         FNamen[i] := TAdresse(Source).FNamen[i];
      FStrasse := TAdresse(Source).FStrasse;
      FOrt := TAdresse(Source).FOrt;
      FLand := TAdresse(Source).FLand;
      FPLZ := TAdresse(Source).FPLZ;
   end
   else
      Inherited;   // wichtig, immer wenn du mit Source nichts anfangen kannst inherited aufrufen
end;

Zu guter Letzt Assign benützen, um Objekte zu kopieren:
   zielobject.Assign(quellobject);