Многопоточная запись в базу данных access

implementation
 
{$R *.dfm}
var
 Potoks: array [1..12] of TPotok;
 n:integer;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
for n:=1 to 12 do
begin
Potoks[n]:=TPotok.Create(n);
 
end;
end;
 
constructor TPotok.Create(i:integer);
begin
Cnt:=i;
inherited Create(False);
FreeOnTerminate:=True;
end;
 
procedure TPotok.Execute;
var
Q:TADOQuery;
t:integer;
begin
CoInitialize(nil);
try
Form1.Label1.Caption := inttostr(Cnt);
Q:=TADOQuery.Create(Application);
Q.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\shar\multyaccessADO\ADO\thread.mdb; Persist Security Info=False;Jet OLEDB:Database Password=""';
try
for t:=1 to 1000 do
  begin
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Add('INSERT INTO Example (N, AddTime, NumItem) VALUES ("'+IntToStr(Cnt)+'","'+DateTimeToStr(Now)+'","'+IntToStr(t)+'")');
  Q.ExecSQL;
  end;
 
     finally
      Q.Free;
    end;
  finally
    CoUninitialize;
  end
end;

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
SW: TStopwatch;
begin
        SW:=TStopwatch.StartNew;
        SW.Start;
        Gauge1.MinValue := 0;
 
       DataModule2.FDQuery1.SQL.Text := 'insert into data values ( :p1, :p2, :p3, :p4, :p5, :p6, :p7, :p8, :p9)';
 
       DataModule2.FDQuery1.Params.Bindmode := pbByNumber;;
       DataModule2.FDQuery1.Params.ArraySize :=100000;
       Gauge1.MaxValue := DataModule2.FDQuery1.Params.ArraySize ;
       DataModule2.FDQuery1.Params[0].DataType := ftInteger;
      try
      for I := 0 to DataModule2.FDQuery1.Params.ArraySize-1 do
       begin
 
          DataModule2.FDQuery1.Params[0].Asintegers[i] := i;
          DataModule2.FDQuery1.Params[1].AsStrings[i] := 'Ok';
          DataModule2.FDQuery1.Params[2].AsDateTimes[i] := now;
          DataModule2.FDQuery1.Params[3].AsFloats[i]:= double(i) + 0.1 ;
          DataModule2.FDQuery1.Params[4].AsFloats[i]:= double(i) + 0.1 * 0.2;
          DataModule2.FDQuery1.Params[5].AsFloats[i]:= double(i) + 0.1 * 3;
          DataModule2.FDQuery1.Params[6].AsFloats[i]:= 1.0;
          DataModule2.FDQuery1.Params[7].AsIntegers[i]:= i * 3;
          DataModule2.FDQuery1.Params[8].AsStrings[i]:= 'Title';
          Gauge1.Progress := i;
      end;
        DataModule2.FDQuery1.Params.ArraySize := i;
        DataModule2.FDQuery1.Execute(DataModule2.FDQuery1.Params.ArraySize, 0);
        DataModule2.FDQuery1.Connection.Commit;
        SW.Stop;
        ShowMessage(IntToStr(DataModule2.FDQuery1.RowsAffected) + '\/'+SW.Elapsed.TotalMinutes.ToString);
      except
      on e:Exception do
      begin
        DataModule2.FDQuery1.Connection.Rollback;
        raise;
      end;
      end;
 
end;

 MainForm.ADOquery1.First;
  while not MainForm.ADOquery1.Eof do
    begin
    DBChart1.Series[i].AddXY(MainForm.adoquery1.FieldValues['datet'],MainForm.adoquery1.FieldValues['temperature'], '',clRed); //
    MainForm.ADOquery1.Next;
    end;

ADOquery1
заменю на 
FDQuery1

FDQuery1.SQL.Text := 'select YValue from AnyTable';
FDQuery1.Open;
Series1.DataSource := FDQuery1;
Series1.YValues.ValueSource := 'YValue';