Запись переменных в БД Access

  Form11.AddTotalOrder.SQL.Clear;
  Form11.AddTotalOrder.SQL.Add('INSERT INTO Order (Data, Client, Model, Quantity)');
  Form11.AddTotalOrder.SQL.Add(' VALUES (:Data, :Client, :Model, :Quantity)');
 
  Form11.AddTotalOrder.Parameters.ParamByName('Data').Value := Form11.Label2.Caption;
  Form11.AddTotalOrder.Parameters.ParamByName('Client').Value := Form11.DBLookupComboBox1.KeyValue;
  Form11.AddTotalOrder.Parameters.ParamByName('Model').Value := Form11.DBLookupComboBox2.KeyValue;
  Form11.AddTotalOrder.Parameters.ParamByName('Quantity').Value := Form11.Edit1.Text;
  Form11.AddTotalOrder.ExecSQL;

  Str_Reseach1 := '%'+Form6.Edit1.Text+'%';
  Str_Reseach2 := QuotedStr(Str_Reseach1);
  with Form6.ADODetailInfo do
    begin
      Form6.ADODetailInfo.Close;
      Form6.ADODetailInfo.SQL.Clear;
      Form6.ADODetailInfo.SQL.Add('SELECT Id, Data, Client, Model, Quantity');
      Form6.ADODetailInfo.SQL.Add(' FROM Orderl');
      Form6.ADODetailInfo.SQL.Add(' WHERE Client LIKE '+Str_Reseach2+' OR Data LIKE '+Str_Reseach2+' ORDER By Id');
      Form6.ADODetailInfo.Open;

  with Form6.ADODetailInfo do
    begin
      Close;
      SQL.Text:='SELECT Id, Data, Client, Model, Quantity FROM Orderl ' +
      ' WHERE Client LIKE :par OR Data LIKE :par2 ORDER By Id';
      Parameters.Parambyname('par').value:= '%'+Form6.Edit1.Text+'%';
      Parameters.Parambyname('par2').value:= '%'+Form6.Edit1.Text+'%';
      Open;
   end;