[lmikle]

Ну так и добавлять (плюс еще одна поправочка на всякий случай):

Код:

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;