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;