for i := 1 to 12 do 
  begin
    for j := 1 to 4 do
    begin

    pf := path_file + '\'+IntToStr(i)+'_' +IntToStr(j) +'.txt';
  
    myDataModule.dsetReestr.Close;
    myDataModule.dsetReestr.SelectSQL.Text := sql1; //тут я получаю ID записей которые нужно выгрузить
    myDataModule.dsetReestr.OpenWP([i,j]);

    while not myDataModule.dsetReestr.Eof do
    begin
      myDataModule.dsetReestr2.Close;
      myDataModule.dsetReestr2.SelectSQL.Text := sql2;
      myDataModule.dsetReestr2.OpenWP([myDataModule.dsetReestr.FBN('ID').AsInteger]); //по ID беру данные, которые выгрузить в файл необходимо

      myDataModule.DPolis.Close;
      myDataModule.DPolis.CommandText := sql3;
      myDataModule.DPolis.Parameters.ParamByName('p1').Value:= myDataModule.dsetReestr2.FBN('npolis').AsString;
      myDataModule.DPolis.Parameters.ParamByName('p2').Value:= myDataModule.dsetReestr2.FBN('dr').AsString;
      myDataModule.DPolis.Parameters.ParamByName('p3').Value:= myDataModule.dsetReestr2.FBN('fam').AsString;
      myDataModule.DPolis.Parameters.ParamByName('p4').Value:= myDataModule.dsetReestr2.FBN('im').AsString;
      myDataModule.DPolis.Parameters.ParamByName('p5').Value:= myDataModule.dsetReestr2.FBN('ot').AsString;
      myDataModule.DPolis.Open;
      uid := myDataModule.DPolis.FieldByName('uid').AsInteger; ///этот запрос обращается к другой базе 

      s:= IntToStr(uid) + #9 +
          myDataModule.dsetReestr2.FBN('w').AsString + #9 +
          myDataModule.dsetReestr2.FBN('year_dr').AsString + #9 +
          myDataModule.dsetReestr2.FBN('soc').AsString + #9 +
          myDataModule.dsetReestr2.FBN('inv').AsString + #9 +
          myDataModule.dsetReestr2.FBN('iddr').AsString + #9 +
          myDataModule.dsetReestr2.FBN('ds1').AsString  + #9 +
          myDataModule.dsetReestr2.FBN('code_usl').AsString + #9 +
          myDataModule.dsetReestr2.FBN('sumv_usl').AsString + #9 +
          myDataModule.dsetReestr2.FBN('sumv').AsString + #9 +
          myDataModule.dsetReestr2.FBN('usl_ok').AsString + #9 +
          myDataModule.dsetReestr2.FBN('srok').AsString + #9 +
          myDataModule.dsetReestr2.FBN('otd').AsString + #9 +
          myDataModule.dsetReestr2.FBN('dt_begin').AsString + #9 +
          myDataModule.dsetReestr2.FBN('pr_dispans').AsString + #9;

      WriteString(pf,s); // собираю строку и вставляю в файл
	  
      myDataModule.dsetReestr.Next;
    end;
    end;
  end;

procedure WriteString(stF: TFileName; msg: string);
begin
  try
    AssignFile(fLog, stF);
    if FileExists(stF) then
      Append(fLog)
    else
      Rewrite(fLog);
    Writeln(fLog, msg);
    Flush(fLog);
  finally
    CloseFile(fLog);
  end// try
end;