Hier die zwei notwendigen Methoden, allerdings ungetestet und ohne, dass ich mir das Projekt angesehen habe:
Delphi-Quellcode:
procedure TKontakt.Assign(Source: TKontakt);
begin
Name := Source.Name;
Alter := Source.Alter;
end;
procedure TKontaktCollection.Assign(source: TKontaktcollection);
var
i: Integer;
kontakt: TKontakt;
begin
clear;
for i := 0 to source.count-1 do
begin
kontakt := Add(TKontakt.Create);
kontakt.Assign(source.Items[i]);
end;
end;