Где лучше хранить большую текстовую базу?

dataset.DisableControls;
dataset.EnableControls;

function TfmMain.ImportXLS4(const FN: String; Q:TFDQuery; PackSize:Integer;
  var ErrCount:Integer): Integer;
var S, TGr:String;
    i:Integer;
 
begin
ErrCount:=0;
if not FileExists(FN) then Exit(ErrFileNotFound);
Result:=0;
OpenFile(FN,Q,4);
Q.First;
DM.QWriter.SQL.Clear;
try
Q.DisableControls;//Потому что на нем превью данных висит.
for i:=0 to Q.RecordCount-1 do
  begin
  if Q.Fields[0].IsNull then
    begin
    Q.Next;
    Continue;
    end;
  Tgr:=Q.Fields[3].AsString;
  if Tgr='0' then
    S:='Insert into Данные4 (Id, Время, НомерПрограммы, Класс ) '+
      ' Values ('''+Q.Fields[0].AsString+''', '+
      ''''+Q.Fields[1].AsString+''', '+
      ''''+Q.Fields[2].AsString+''', '+
      ''''+Q.Fields[3].AsString+'''); '
             else
      begin
      S:='Insert into Данные4 (Id, Время, НомерПрограммы, Класс, '+
      'РСпч, РСпрч, ИРСпч, ИРСпрч, БСпч, БСпрч, ИБСпч, ИБСпрч, '+
      'ГармРС1пч, ГармРС1прч, ГармРС2пч, ГармРС2прч, Гарм1БСпч, Гарм1БСпрч, '+
      'IPпч, IPпрч, IPVпч, IPVпрч, CONY, PLYS, ББсв, РБц, ББсн, Вып_св, Вып_сн,'+
      'Стяж_св, Стяж_сн, Стат_дисб, Дисб_св, Дисб_сн, Дисб_п, Вес) '+
      ' Values ('+Q.Fields[0].AsString+', '+
      ''''+Q.Fields[1].AsString+''', '+
      Q.Fields[2].AsString+', '+
      Q.Fields[3].AsString+', ';
      for var j:=4 to 35 do
        S:=S+' '+FastReplace(Q.Fields[j].AsString)+',';
      S[Length(S)]:=')';
      S:=S+';';
      end;
  DM.QWriter.SQL.Add(S);//Вот здесь
  if DM.QWriter.SQL.Count>=PackSize then {По дефолту PackSize=50, так бы кидал по 1000 или даже все,
 т. к. там объем вставки не более нескольких тысяч, и не заморачивался,
 впрочем, при мелких пачках ошибки вставки некритичны}
    begin
    try
    DM.QWriter.ExecSQL;
    except
    Result:=ErrDBError;
    Inc(ErrCount);
    end;
    DM.QWriter.SQL.Clear;
    end;
  Q.Next;
  end;
 
try
if DM.QWriter.SQL.Count>0 then DM.QWriter.ExecSQL;
except
Result:=ErrDBError;
Inc(ErrCount);
end
finally
Q.First;
Q.EnableControls;
end;
end;