Можно ли вручную вводить данные в DBLookupComboBox?

procedure TForm1.DBComboBox1DropDown(Sender: TObject);
 var I: integer;
begin
 for I:=0 to Pred(DBGrid1.Columns.Count) do
 if DBGrid1.Columns[I].Field.FieldName = DBCombobox1.DataField then begin
     { Присвоение списка PickList списку строк ComboBox'a }
   DBCombobox1.Items.Assign(DBGrid1.Columns[I].PickList);
   Break;
 end;
end;

dbCb1.Items.Assign(DBGrid1.Columns[0].PickList);

  DBCombobox1.Items.Assign(DBGrid2.Columns[0].PickList);

procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State) then
    if (Column.Field.FieldName = dbcombobox1.DataField) then begin
      { Вместо стандартного InplaceEditor'а показываем ComboBox }
     DBCombobox1.Left := Rect.Left + DBGrid2.Left;
     DBCombobox1.Top := Rect.Top + DBGrid2.top;
     DBCombobox1.Width := Rect.Right - Rect.Left + 2;
     DBCombobox1.Visible := True;
   end;
 
end;
 
procedure TForm1.DBGrid2ColExit(Sender: TObject);
begin
 if DBGrid2.SelectedField.FieldName = DBCombobox1.DataField then
    DBCombobox1.Visible := false;
 
end;
 
procedure TForm1.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
{ Передаем все нажатия клавиш в InplaceEditor'е созданному ComboBox'у }
  if (Key <> chr(9)) then
    if (DBGrid2.SelectedField.FieldName = DBCombobox1.DataField) then begin
      DBCombobox1.SetFocus;
      SendMessage(DBCombobox1.Handle, WM_CHAR, word(Key), 0);
    end;
 
end;
 
procedure TForm1.DBComboBox1DropDown(Sender: TObject);
// var I: integer;
begin
// for I:=0 to Pred(DBGrid2.Columns.Count) do
// if DBGrid2.Columns[I].Field.FieldName = DBCombobox1.DataField then begin
      { Присвоение списка PickList списку строк ComboBox'a }
   DBCombobox1.Items.Assign(DBGrid2.Columns[0].PickList);
//   Break;
// end;
end;

procedure TfrmDicPersonnel.btn1Click(Sender: TObject);
var
  i: integer;
begin
  i := 0;
  while i < DBGrid1.DataSource.DataSet.RecordCount do
  begin
  DBGrid1.Columns[0].PickList.Add(DBGrid1.Fields[0].AsVariant);
  inc(i);
  end;
  DBComboBox1.Items.Assign(DBGrid1.Columns[0].PickList);
end;