[dyr_farot]

не впишется она. а заменить... это нужно наследника от TCustomComboBox писать и пепрписать все методы TDBComboBox. потому как установка текста в нем зашита:

procedure TDBComboBox.DataChange(Sender: TObject);
begin
  if not (Style = csSimple) and DroppedDown then Exit;
  if FDataLink.Field <> nil then
    SetComboText(FDataLink.Field.Text)
  else
    if csDesigning in ComponentState then
      SetComboText(Name)
    else
      SetComboText('');
end;