procedure TForm1.FormCreate(Sender: TObject);
begin
   Query1.First;  //一開始把所有customer的顧客名稱寫入ComboBox裡
  while not Query1.Eof do
  begin
    ComboBox1.Items.Add(Query1.FieldByName('CUSNAME').AsString);
    Query1.Next;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin           //用選的或自己打都沒問題
  Query1.Edit;
  Query1.FieldByName('CUSNAME').AsString := ComboBox1.Text;
  Query1.Post;
end;    end.    
ps:  1: 用Combobox做較好  
        因為DBCombobox是資料感知元件 用來連結欄位
        但是如要達到你的需求 比較麻煩也容易出問題
        所以建議用Combobox
       
     2: query的RequestLive屬性要設為 True    

引言: 請問如果用DBComboBox,用上面的例子，但是user只能打列表中有的值，不能隨便亂打，要怎麼寫呢？

procedure TfrmM0AllowType.DBComboBox1Exit(Sender: TObject);
  var
    ss string;
begin
  ss := DBComboBox1.Text ;
  if not Query1.Locate('CUSNAME',SS,[]) then
  begin
    if Application.MessageBox('資料不符合 請重新輸入','訊息視窗',MB_ICONWARNING)= mrOK then
    DBComboBox1.Text := '';//可加可不加
    DBComboBox1.SetFocus ;
  end
  else
  begin
    DBComboBox1.Text := ss;
  end;
end;    end.