DbEdit или Edit-внесение данных в БД

[Djin1904]

Доброго времени суток!Пытаюсь через edit'ы записать данные в таблицу из БД(пациент)-но при нажатии кнопки ничего не происходит.В чем моя ошибка братцы?(может нужно использовать DBedit'ы?)
Вот код при нажатии кнопки:

procedure TForm1.Button16Click(Sender: TObject);
begin
 try
 if (Trim(Edit18.Text)='') or (Trim(Edit19.Text)='') or (Trim(Edit20.Text)='') or (Trim(Edit21.Text)='')
 or (Trim(Edit22.Text)='') or (Trim(Edit23.Text)='') or (Trim(Edit24.Text)='') or (Trim(Edit25.Text)='')
 then exit;
  Form4.ADOQuery4.Insert;
  Form4.ADOQuery4.FieldByName('Фам').AsString:=Edit18.Text;
  Form4.ADOQuery4.FieldByName('ДР').AsString:=(Edit19.Text);
  Form4.ADOQuery4.FieldByName('СНИЛС').AsString:=(Edit20.Text);
  Form4.ADOQuery4.FieldByName('Пол').AsString:=Edit21.Text;
  Form4.ADOQuery4.FieldByName('СТРК').AsString:=Edit22.Text;
  Form4.ADOQuery4.FieldByName('НП').AsInteger:=StrToInt(Edit23.Text);
  Form4.ADOQuery4.FieldByName('ЛПУ').AsString:=(Edit24.Text);
  Form4.ADOQuery4.FieldByName('Адр').AsString:=(Edit25.Text);
  Form4.ADOQuery4.Post;
  Edit18.Clear;
  Edit19.Clear;
  Edit20.Clear;
  Edit21.Clear;
  Edit22.Clear;
  Edit23.Clear;
  Edit24.Clear;
  Edit25.Clear;
 except
 on e:Exception do
end;
end;

(Form4-там у меня находятся все ADO,Sourse и т.д.)
(ADOQuery4-запрос на таблицу Пациент(SELECT* from Пациент))
Работаю в Delphi2010,Access2007

[Аватар]

Строка соединения:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Mode=ReadWrite;Persist Security Info=False

и ADOConnectin.LoginPrompt:=False. Все остальное по умолчанию. Должно работать. Это пример для 2003-го, 2007-го под рукой нет, там другой JET-провайдер. DBEdit-ы не нужны. Подход непосредстаенного редактирования больше подходит для ADOTable, для ADOQuery лучше, а чаще по другому и не получится, обновления через SQL-запросы

[Djin1904]

Спасибо большое за помощь!С проблемой разобрался!
i