Busqueda incremental en un Edit

[dekorone16]

tengo este codigo en el evento onChange y tambien lo eh probado en el onKeyPress, es el mismo que publicaste al principio solo que no encuentro el error para que al momento de seleccionar el registro que quiero se eliminen los demas items

with TComboBox(Sender) do
  begin
    if Text > '' then
    begin
      dm.q3.Close;
      dm.q3.SQL.Clear;
      dm.q3.SQL.Add('SELECT Nombre FROM rh_empleados');
      dm.q3.SQL.Add('WHERE Nombre LIKE UPPER(:Nombre)');
      dm.q3.ParamByName('Nombre').AsString:= ComboBox1.Text+'%';
      dm.q3.Open;
      while not dm.q3.Eof do
      begin
        if Items.IndexOf(dm.q3.FieldByName('Nombre').AsString) = -1 then
           ComboBox1.Items.Add(dm.q3.FieldByName('Nombre').AsString);
           dm.q3.Next;
      end;
           Height:= DropDownCount * CBOX_HEIGHT;
    end
    else
    begin
          Clear;
          Height:= CBOX_HEIGHT;
    end;
  end;