[NumLock]

Переопределить метод AssignTo:

Код:

type
  TClients = class(TPersistent)
  protected
    procedure AssignTo(Dest: TPersistent); override;
  end;

procedure TClients.AssignTo(Dest: TPersistent);
begin
  TStrings(Dest).Clear;
  TStrings(Dest).Add('1');
  TStrings(Dest).Add('2');
  TStrings(Dest).Add('4');
  TStrings(Dest).Add('8');
end;

Использовать метод Assign:

Код:

begin
  ComboBox1.Items.Assign(TClients.Create);
end;

Работает 100%.