Заполнение cxLookupComboBox в run time

[fake2]

В 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.

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