Попробуйте использовать что-то типа этого:

DBLookupCombo1.LookupDisplay := 'Company;City;Country'; 

Т.е., для того, чтобы выводить более одного поля, разделите имя каждого поля точкой с запятой.