Проблема с Comboboxом

[dvtimofei]

Есть программа, БД работников, в ней три поля ComboBox связаны с БД аксесс,
выбрать можно любой но сохранить нужный по умолчанию для определенного человека не получаеться.
Что может быть?
Получаеться след,
Есть программка, на ней вкладки
1 ая Личная информация (ФИО и Т Д)
2 ая (паспортные данные)
3 Работа на ней 2 комбобокса
Они загружаються и бд аксесс...
Загружаеться все оке, но не сохраняються в бд..для нужного человека

procedure TForm1.TabSheet5Show(Sender: TObject);
var
s:String;
begin
ADOTable2.Active:=True;
ComboBox3.Items.Clear;
while not ADOTable2.Eof do
begin
ComboBox3.Items.Add(ADOTable2Podrazdelenie.Value);
if(ADOTable2Kod_Podrazdelenie.Value=ADOTable1kod_p odrazdelenie.Value)then
ComboBox3.Text:=ADOTable2Podrazdelenie.Value;
ADOTable2.Next;
end;
ADOTable2.Active:=False;

ADOTable4.Active:=True;
ComboBox4.Items.Clear;
while not ADOTable4.Eof do
begin
ComboBox4.Items.Add(ADOTable4Dolgnost.Value);
if(ADOTable4Kod_Dolgnost.Value=ADOTable1Kod_dolgno st.Value)then
ComboBox4.Text:=ADOTable4Dolgnost.Value;
ADOTable4.Next;
end;
ADOTable4.Active:=False; 
end;

Вот это сохранение всех изменений:

procedure TForm1.FormDestroy(Sender: TObject);
begin
ADOTable1.Active:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOTable1.State in [dsInsert,dsEdit] then
begin
if(PageControl1.ActivePageIndex=4)then
begin
ADOTable2.Active:=true;
ADOTable2.First;
ADOTable1.Edit;
ADOTable1kod_podrazdelenie.Value:=ADOTable2.Lookup ('Podrazdelenie',ComboBox3.Text,'Kod_ Podrazdelenie');
ADOTable2.Active:=false;
ADOTable4.Active:=true;
ADOTable4.First;
ADOTable1Kod_dolgnost.Value:=ADOTable4.Lookup('Dol gnost',ComboBox4.Text,'Kod_Dolgnost');
ADOTable4.Active:=false;
end;
if(PageControl1.ActivePageIndex=3)then
begin
ADOTable3.Active:=true;
ADOTable1.Edit;
ADOTable3.First;
ADOTable1Kod_obrazovanie.Value:=ADOTable3.Lookup(' Obrazovanie',ComboBox2.Text,'Kod_Obrazovanie');
ADOTable3.Active:=false;
end;
if(PageControl1.ActivePageIndex=0)then
begin
if(DBEdit1.Text<>'')and(DBEdit2.Text<>'')and(DBEdi t3.Text<>'')and(DBEdit4.Text<>'')and(DBEdit5.Text< >'')and(DBEdit6.Text<>'')and(DBEdit7.Text<>'')and( DBEdit8.Text<>'')and(DBEdit9.Text<>'')then
begin
if(ComboBox3.Text='')then
begin
ADOTable1kod_podrazdelenie.Value:=1;
ADOTable1Kod_dolgnost.Value:=1;
end;
if(ComboBox2.Text='')then
begin
ADOTable1Kod_obrazovanie.Value:=1;
end;
end
else
ShowMessage('Ошибка! Не все поля таблицы заполнены.');
end;
try
ADOTable1.Post;
except
ShowMessage('Произошла исключительная ситуация: не могу создать сотрудника! Обратитесь к разработчику программы.');
end;
//ADOTable1.Edit;
end;
end;