Ну так и добавлять (плюс еще одна поправочка на всякий случай):
Код:
type
TClients = class(TPersistent)
protected
procedure AssignTo(Dest: TPersistent); override;
end;
procedure TClients.AssignTo(Dest: TPersistent);
begin
if Dest Is TStrings Then
begin
TStrings(Dest).Clear;
TStrings(Dest).AddObject('1',TObject(1));
TStrings(Dest).AddObject('2',TObject(2));
TStrings(Dest).AddObject('4',TObject(4));
TStrings(Dest).AddObject('8',TObject(8));
end;
end;