var
  ADOConn  : TADOConnection;
  ADOQuery : TADOQuery;
  DataSrc  : TDataSource;
  Param    : TParameter;
  SQLStr  : string;
  MyStream: TStream;

var tString,File2Use:string;
    count,i:integer;
    SuperQuery:TStringList;

begin

  with AdoQuery1 do
    begin
      SuperQuery := TStringList.Create;
     // MyStream:= TStream.Create;  
      DisableControls;
      First;

      while not (Eof) do begin  // читаю всё записи

      { SQL Query }    // создаю записи запросов  /// примерно 50.000 таких строк
      SuperQuery.Append('INSERT INTO `database`.`db_table`(`ArtikelID`,'+
            ' `ManufacturerName`, `ManufacturerPN`, `Supplier`, `SupplierPN`,'+
            ' `Description`, `PhotoURL`, `Price`, `Quantity`, `Currency`, `Lagerplatz`) VALUES'+
            ' ('''+''+trim(Fields.Fields[0].AsString)+
            ''', '''+trim(Fields.Fields[1].AsString)+
            ''', '''+trim(Fields.Fields[2].AsString)+
            ''', ''Firma'', '''+
                 trim(Fields.Fields[3].AsString)+
            ''', '''+trim(Fields.Fields[4].AsString)+
            ''', ''-'', '''+trim(Fields.Fields[5].AsString)+
            ''', '''+trim(Fields.Fields[6].AsString)+
            ''', ''EUR'', '''+trim(Fields.Fields[7].AsString)+''');');


         //SuperQuery.SaveToStream(MyStream);   // попытался через стрим
         //Memo1.Text:=SuperQuery.Text;

        Next;
      end;


  { Create an ADO connection. }
  ADOConn := TADOConnection.Create(Self);
  { Set up the provider engine }

  { Set up the connection string. }
  ADOConn.ConnectionString := Format(ConnString, [UserName, PassWord, Server]);

  { Disable login prompt. }
  ADOConn.LoginPrompt := False;

  try
    ADOConn.Connected := True;
  except
    on e: EADOError do
    begin
      MessageDlg('Error while connecting', mtError,
                  [mbOK], 0);

      Exit;
    end;
  end;

  { Create the query. }
  ADOQuery := TADOQuery.Create(Self);
  ADOQuery.Connection := ADOConn;
////  ADOQuery.SQL.LoadFromStream(MyStream);  // в этом варианте делаю что-то не так
//  ADOQuery.SQL.LoadFromFile('file.txt');   // этот вариант у меня не работает




  { Set the query to Prepared--it will improve performance. }
  ADOQuery.Prepared := true;

  try
  ADOQuery.ExecSQL;
//  SuperQuery.SaveToFile('file.txt');    // так могу сохранить в файл
//  ADOConn.Execute(SuperQuery.Text);  // так попытался закинуть все записи из TStringList
    ADOQuery.Active := True;
  except
    on e: EADOError do
    begin
      MessageDlg('Error while doing query', mtError,
                  [mbOK], 0);

      Exit;
    end;
  end;

end;

procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin

  { Set up the connection string. }
  AdoQueryMySql.ConnectionString := Format(ConnString, [UserName, PassWord, Server]);

  try
    with AdoQuery1 do
       begin
         DisableControls;
         First;

             AdoQueryMySQL.SQL.Text := 'INSERT INTO `db`.`db_table`(`ArtikelID`, `ManufacturerName`, '+
                                       '`ManufacturerPN`, `Supplier`, `SupplierPN`, `Description`, `PhotoURL`,'+
                                       '`Price`, `Quantity`, `Currency`, Lagerplatz`) VALUES '+
                                       '(:ArtikelID, :ManufacturerName, :ManufacturerPN, :Supplier, :SupplierPN,'+
                                       ' :Description, :PhotoURL, :Price, :Quantity, :Currency, :Lagerplatz)';
             AdoQuery1.Open;
               while not AdoQuery1.Eof do begin
                  for i := 0 to AdoQuery1.FieldCount - 1 do
                       AdoQueryMySql.Parameters[i].Value := AdoQuery1.Fields[i].AsVariant;
                       AdoQueryMySql.ExecSQL;
                       AdoQuery1.Next;
               end;

       end;

  finally
    AdoQuery1.EnableControls;
    AdoQuery1.Close;
  end;

end;