Access Violation при вызове метода Open для Sqlquery из потока

New(threadParam);
   try
    if ReportKind.report_47 then
      begin
        threadParam.repDate := DateTimePicker1.Date;;
        threadParam.rep47 := True;
        threadParam.rep34 := False;
        threadId := BeginThread(nil, 0, @SvedWork.dReport, threadParam, CREATE_SUSPENDED, someId);
        SetThreadPriority(threadId, THREAD_PRIORITY_LOWEST);
        ResumeThread(threadId);
        unThreadWorking.fmThreadWorking.ShowModal;
        //dmSveden.dmSved.tmTimer.Enabled := False;
        //ShowMessage('test');
      end
 
    else
      begin
        threadParam.repDate := DateTimePicker1.Date;
        threadParam.rep47 := False;
        threadParam.rep34 := True;
        threadId := BeginThread(nil, 0, @SvedWork.dReport, threadParam, CREATE_SUSPENDED, someId);
        SetThreadPriority(threadId, THREAD_PRIORITY_NORMAL);
        ResumeThread(threadId);
        unThreadWorking.fmThreadWorking.ShowModal;
      end;
   finally
      if threadId = 0 then
        Dispose(threadParam);
   end;
    CloseHandle(threadId);

procedure dReport(Params: Pointer);
var
  i,j :Integer;
  sqlString: string;
  p: TParamRecord;
  iniFile:TIniFile;
  uId: Integer;
begin
  p:= PPointRecord(Params)^;
  iniFile := TIniFile.Create(GetCurrentDir + '\settings.ini');
  with dmSved.dbexSved do
    begin
      Params.Values['Database'] := iniFile.ReadString('Oracle', 'OraServer', '' );
      uId := StrToInt(iniFile.ReadString('Oracle', 'OraUser', '' ));
      case  uId of   {Case'îì âûáèðàåì, ïîä êàêèì ïîëüçîâàòåëåì ïîäêëþ÷àåìñÿ ê áàçå}
        1:
          begin
            Params.Values['User_name'] := 'gaidev';
            Params.Values['Password'] := 'mainowner';
          end;
        2:
          begin
            Params.Values['User_name'] := 'roland';
            Params.Values['Password'] := '';
          end;
      end;
    end;
 
 
  if p.rep47 then
    sqlString := 'SELECT ' +
                                'sp.kod, ' +
                                'sp.n2 as sp_n2, ' +
                                'sv.DAY_IN, ' +
                                'sv.N1, ' +
                                '0,' +          //-- âîëøåáíûé íîëèê íàäî çàìåíèòü íà äàííû
                                'sv.DPS_FACT, ' +
                                'sv.DTP_IRON,  ' +
                                'sv.VPDD,  ' +
                                'sv.N4,  ' +
                                'sv.VIDEO,  ' +
                                'sv.N6,  ' +
                                'sv.DPS1,  ' +
                                'sv.N11,  ' +
                                'sv.SPEED_VLT,  ' +
                                'sv.NPP, ' +
                                'sv.N1223, ' +
                                'sv.P1, ' +
                                'sv.P2,  ' +
                                'sv.N53, ' +
                                'sv.N1224,  ' +
                                'sv.N15,  ' +
                                'sv.N17, ' +
                                'sv.LPU,  ' +
                                'sv.N23, ' +
                                'sv.COMMUN_SRV,  ' +
                                'sv.UDC,  ' +
                                'sv.P5, ' +
                                'sv.P3,  ' +
                                'sv.P4,  ' +
                                'sv.DPRED,  ' +
                                'sv.ATP, ' +
                                'sv.P7,  ' +
                                'sv.P6,  ' +
                                'sv.TPRED,  ' +
                                'sv.P10,  ' +
                                'sv.P11,  ' +
                                'sv.P12,  ' +
                                'sv.PPRED,  ' +
                                'sv.P13,  ' +
                                'sv.D1,   ' +
                                'sv.P15, ' +
                                'sv.P18,  ' +
                                'sv.P20, ' +
                                'sv.N33,  ' +
                                'sv.N35,  ' +
                                'sv.N37,  ' +
                                'sv.N38,  ' +
                                'sv.N39,  ' +
                                'sv.N41,  ' +
                                'sv.N43   ' +
                            'FROM sv_spw sp LEFT JOIN sveden sv ON sp.kod = sv.rajon and sv.day_in = to_date(:date, ''dd.mm.yyyy'') where sp.kod not in (100, 1047, 1048, 1049)'
  else
    sqlString :=  'SELECT ' +
                                  'sp.kod, ' +
                                  'sp.n1 as sp_n1, ' +
                                  'sv.DAY_IN, ' +
                                  'sv.VPDD,  ' +
                                  'sv.N4,  ' +
                                  'sv.VIDEO,  ' +
                                  'sv.N6,  ' +
                                  'sv.DPS1,  ' +
                                  'sv.N11,  ' +
                                  'sv.SPEED_VLT,  ' +
                                  'sv.NPP, ' +
                                  'sv.N1223, ' +
                                  'sv.P1, ' +
                                  'sv.P2,  ' +
                                  'sv.N53, ' +
                                  'sv.N17, ' +
                                  'sv.LPU,  ' +
                                  'sv.N23, ' +
                                  'sv.COMMUN_SRV,  ' +
                                  'sv.UDC,  ' +
                                  'sv.P5, ' +
                                  'sv.P3,  ' +
                                  'sv.P4,  ' +
                                  'sv.DPRED,  ' +
                                  'sv.ATP, ' +
                                  'sv.P7,  ' +
                                  'sv.P6,  ' +
                                  'sv.TPRED,  ' +
                                  'sv.P10,  ' +
                                  'sv.P11,  ' +
                                  'sv.P12,  ' +
                                  'sv.PPRED,  ' +
                                  'sv.P13,  ' +
                                  'sv.D1,   ' +
                                  'sv.P20, ' +
                                  'sv.N33,  ' +
                                  'sv.N35  ' +
                              'FROM sv_spw sp LEFT JOIN sveden sv ON sp.kod = sv.rajon and sv.day_in = to_date(:date, ''dd.mm.yyyy'') where sp.kod not in (100, 1047, 1048, 1049)';
 
 
       with dmSved do
         begin
           if qSveden.Active =  True then
              qSveden.Close;
 
 
           qSveden.ParamByName('date').AsBCD := p.repDate;
           qSveden.SQL.Add(sqlString);
           qSveden.Active := True;
           if not qSveden.IsEmpty then
             begin
               arrSvedData := VarArrayCreate([0, qSveden.RecordCount , 0, qSveden.FieldCount - 4], varVariant);
               for i := 0 to VarArrayHighBound(arrSvedData, 1) do
                 begin
                   for j := 0 to VarArrayHighBound(arrSvedData, 2) do
                    arrSvedData[i,j] := qSveden.Fields.Fields[j + 3].AsInteger;  //[j+3] - èñêëþ÷àåì ïîëÿ 'sp.kod, sp_n1, sv.DAY_IN
                   qSveden.Next;
                 end;
               qSveden.Close;
             end
           else
            begin
              ShowMessage('Èçâèíèòå, íî äàííûõ íà óêàçàííóþ äàòó ïðåäîñòàâëåíî íå áûëî.');
              qSveden.Close;
              Exit;
            end;
         end;

if assigned(qSveden) then <действия>