[pro100irk]

Попробуй вот такой код:

Table4.Filter := 'Kontragent=''' + ComboBox5.Text+'''';

Перез запуском самой фильтрации проверь, чтобы в Combo была хоть какая-то запись