Создание приложения, подключаемое к БД Access

ADOQuery5.Clear;
ADOQuery5.SQL.Add('Select * from Tur');
ADOQuery5.Active:=True;

if DBLookupComboBox5.KeyValue='' then ShowMessage('Не выбран тур!') else
if DBLookupComboBox6.KeyValue='' then ShowMessage('Не выбран турист!') else
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('INSERT INTO OformitPutevku (KodTura,Turist,DataOformlenia,Menejer) values(:KodTura,:Turist,:DataOformlenia,:Menejer)');
  ADOQuery1.Parameters.ParamByName('KodTura').AsInteger:=DBLookupComboBox5.KeyValue; 
  ADOQuery1.Parameters.ParamByName('Turist').AsInteger:=DBLookupComboBox6.KeyValue;
//и т.д. изучите запрос с параметром, станет понятней
  ZQuery3.ExecSQL;
end;

begin
  if DBLookupComboBox1.Text='' then ShowMessage('Вы не заполнили поля!') else
 
begin
  Form1.ADOQuery2.SQL.Clear;
  Form1.ADOQuery2.SQL.Add('INSERT INTO OformitPutevku (Data) values(:Data)');
  Form1.ADOQuery2.Parameters.ParamByName('Data').Value:=DBLookupComboBox1.Text;
//комментарий
  Form1.ADOQuery2.ExecSQL;
end;
end;

Form1.ADOQuery2.SQL.Add('INSERT INTO OformitPutevku (Data) values(:Data)');

ADOQuery1.Parameters.ParamByName('Turist').AsInteger:=DBLookupComboBox1.KeyValue;

if DBLookUpComboBox1.ListFieldIndex<>-1 then ShowMessage('Вы не заполнили поля!') else

begin
 
if DBLookUpComboBox1.KeyValue = null then ShowMessage('Ничего не выбрали') else
//Если текущее значение ключевого поля DBLookUpCombobox1 не имеет значения то вывести диалоговое окно с 
//сообщением иначе
 
      begin
  ADOQuery2.SQL.Clear;//Отчистить запросы которые были ранее как я понял
  ADOQuery2.SQL.Add('INSERT INTO OformitPutevku (turist) values(:turist)');
  ADOQuery2.Parameters.ParamByName('turist').Value:=DBLookupComboBox1.KeyValue;
//комментарий
  ADOQuery2.ExecSQL;
end;
end;