Замена кода на текст при добавлении данных

[L777SU]

Помогите кто чем может!
При добавлении новой записи данные берутся из другой таблицы и заносятся в Edit, как сделать так что бы в Edit добавлялся код записи, но отображался текст?

Код программы:

procedure TForm33.BitBtn1Click(Sender: TObject);
begin
form32.ADOQuery1.Insert;
form32.ADOQuery1.FieldByName('ID'). AsInteger:=StrToInt(Edit1.Text);
form32.ADOQuery1.FieldByName('Staty s').AsInteger:=StrToInt(Edit2.Text) ;
form32.ADOQuery1.FieldByName('Tip') .AsString:=Edit3.Text;
form32.ADOQuery1.FieldByName('Model ').AsString:=Edit4.Text;
form32.ADOQuery1.FieldByName('Seria l_number').AsString:=Edit5.Text;
form32.ADOQuery1.FieldByName('Inver tarni_number').AsInteger:=StrToInt( Edit6.Text);
form32.ADOQuery1.FieldByName('Otvet stvennii_ID').AsInteger:=StrToInt(E dit7.Text);
form32.ADOQuery1.FieldByName('Opisa nie').AsString:=Edit8.Text;
form32.ADOQuery1.FieldByName('Posta vchik_ID').AsInteger:=StrToInt(Edit 9.Text);
form32.ADOQuery1.FieldByName('Garan tia_do').AsDatetime:=StrToDate(Edit 10.Text);
form32.ADOQuery1.FieldByName('Ctoim oct').AsString:=Edit11.Text;
form32.ADOQuery1.FieldByName('Data_ vvoda_v_ekcpLyataciy').AsDatetime:= StrToDate(Edit12.Text);
form32.ADOQuery1.Post;
form32.ADOQuery1.Refresh;
end;

procedure TForm33.Button1Click(Sender: TObject);
begin
if form3.ShowModal=mrOk then
begin
Edit2.Text:=form3.ADOQuery1ID.AsStr ing;
end;
end;

procedure TForm33.Button2Click(Sender: TObject);
begin
if form15.ShowModal=mrOk then
begin
Edit7.Text:=form15.ADOQuery1ID.AsSt ring;
end;
end;

procedure TForm33.Button3Click(Sender: TObject);
begin
if form2.ShowModal=mrOk then
begin
Edit9.Text:=form2.ADOQuery1ID.AsStr ing;
end;
end;

[palochka]

Здраствуйте та же самая проблема...
Существует таблица сотрудники...там хранятся данные о сотруднике С шифром подразделения..
Нужно добавить запись новую...И мы в комбобокс выбираем название подразделения(но добавляться в таблицу должен шифр должности!)

Я так думаю нужно обрабатывать событие onchange комбобокса...

Module.ADOQuery1.Close;
Module.ADOQuery1.SQL.Clear;
Module.ADOQuery1.SQL.Add('select Подразделение.шифр as shifrr');
Module.ADOQuery1.SQL.Add('from Подразделение');
Module.ADOQuery1.SQL.Add('where Подразделение.название='+combobox3.Text);
Module.ADOQuery1.Open;
nompodr:=Module.ADOQuery1.FieldByName('shifrr').AsInteger;

потом я этот nompodr хочу вставить в запрос на добавление...

но уже при выборе в комбобоксе значения вылазиет ошибка "Параметр <тут название подразделения> не имеет значение по умолчанию "