В OnChange:
Код:
var
tmp: string;
begin
if cxLookupComboBox1.EditText = '' then
exit;
tmp := Copy(cxLookupComboBox1.EditText, 1, cxLookupComboBox1.SelStart);
with ADOQuery1 do
begin
Close;
if tmp <> '' then
begin
sql.Clear;
sql.Add('select top 10 * from streets where street like ''' + tmp + '%''');
open;
end;
end;
end;
при наборе список показывает не все записи, а только первую, хотя DropDownRows=8.

грид справа на рисунке для наглядности.