Hola vgpastor.
Si los campos que mostras son tan extensos y cabe la posibilidad de que tengan espacios en blanco, una solución que se me ocurre es que te crees un campo calculado donde concatenes ambos, y sea el campo calculado el que asignes en la propiedad
ListField del
DBLookupComboBox.
Luego en el evento
OnCalcFields del DataSet realizas la asignación.
Por ejemplo:
Código Delphi
[-]
procedure TForm1.IBQuery1CalcFields(DataSet: TDataSet);
begin
IBQuery1Calculado.AsString:= Trim(IBQuery1.FieldByName('CAMPO_1').AsString)+ ', ' +
Trim(IBQuery1.FieldByName('CAMPO_2').AsString);
end;
El efecto visual no es espectacular, pero seguramente no tengas que utilizar 5000 píxeles para mostrarlo.
Un saludo.