[efimalex]

да нет просто не доконца написал
вот полный вызов

Код:

procedure TAddNomenGroupForm.ComboGrNomUnitButtonDown(Sender: TObject;
  TopButton: Boolean; var AutoRepeat, Handled: Boolean);
var
ob:TFillCombo;
t:TStringList;
begin
t:=TStringList.Create;
  //Заполняем ComboBox
  dm.SetSprCom.Active:=true;
 // ob.Create(dm.SetSprCom,'SPR_VALUE');
 ob := TFillCombo.Create;
 ob.DataSe:=dm.SetSprCom;
 ob.FieldNam:='SPR_VALUE';
 ob.fill(t);

  ComboGroupNomen.Items.Assign(t);
//  ComboGroupNomen.Items:=t;
  //ComboGroupNomen.Items.AddStrings(t);
end;

там можно было сделать так и без t

Код:

ob.fill(ComboGroupNomen.Items);

но не работает ни так и ни так.
проблема в самом методе fill