uses
  cxDBLookupComboBox;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxLookupComboBox1.Properties.ListSource := DataSource1;
  cxLookupComboBox1.Properties.KeyFieldNames := 'ID';
  cxLookupComboBox1.Properties.ListFieldNames := 'SomeField';

  // Может понадобиться для синхронизации выпадающего списка
  // и отображаемого текста
  // cxLookupComboBox1.Properties.ListOptions.SyncMode := True;
end;

uses
  cxDBLookupComboBox;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Если нужно отобразить несколько полей в выпадающем списке, можно указать их через ";"
  cxLookupComboBox1.Properties.ListFieldNames := 'SomeField1;SomeField2;SomeField3';
  // Или через свойство
  // cxLookupComboBox1.Properties.ListColumns
end;

uses
  cxDBLookupComboBox;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxLookupComboBox1.Properties.ListOptions.ShowHeader := False;
end;

uses
  cxDBLookupComboBox;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxLookupComboBox1.Properties.ListOptions.GridLines := glBoth;
  // Возможные варианты:
  // glNone, glHorizontal, glVertical, glBoth
end;

uses
  cxDBLookupComboBox;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxLookupComboBox1.Properties.DropDownSizeable := True;
end;

uses
  cxDBLookupComboBox;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxLookupComboBox1.Properties.DropDownAutoWidth := True;
end;

uses
  cxDBLookupComboBox;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxLookupComboBox1.Properties.DropDownRows := 10;
end;

uses
  cxDBLookupComboBox;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxLookupComboBox1.Properties.DropDownListStyle := lsEditFixedList;
  // Возможные варианты:
  // lsEditFixedList, lsEditList, lsFixedList
end;