[ecfisa]

Hola.

La sugerencia de Casimiro esta muy buena.

Otra opción que podría servirte es mostrar el campo en un TStatusBar:

Código Delphi [-]
 TForm1 = class(TForm)
    ...
    DBLookupComboBox1: TDBLookupComboBox;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    procedure DataSetAfterScroll(DataSet: TDataSet);
  public
  end;

...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBLookupComboBox1.ListSource.DataSet.AfterScroll := DataSetAfterScroll;
end;

procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
var
  lcb: TDBLookupComboBox;
begin
  lcb := DBLookupComboBox1;
  StatusBar1.SimpleText :=
    lcb.ListSource.DataSet.FieldByName(lcb.ListField).AsString
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DBLookupComboBox1.ListSource.DataSet.AfterScroll := nil;
end;

Saludos