[perfect.must]

[Frgt10], попробуй

DataModule1.ADOTable_Companys.Filter:='[Название_ко мпании]='+ComboBox1.Text;