procedure TFrmMain.btnAddClick(Sender: TObject);
begin
  FMyThread := TMyThread.Create(True);
  try
    RMD.DisableControls;

    FrmSplash := TFrmSplash.Create(Application);
    FMyThread.Start;
    try
      FrmSplash.ShowModal;
    finally
      FreeAndNil(FrmSplash);
    end;
  finally
    RMD.EnableControls;
    FreeAndNil(FMyThread);
  end;
end;

procedure TFrmMain.DSDataChange(Sender: TObject; Field: TField);
begin
  if Qry.Active then
  begin
    if Qry.EOF then
    begin
      FprmFrom:= FprmTo + 1;
      FprmTo:= FprmFrom + RecInterval;

      //if (Qry.RecordCount - FprmFrom) < RecInterval then
      //begin
      //  FprmFrom:= Qry.RecordCount - RecInterval;
      //  FprmTo:= Qry.RecordCount;
      //end;

    end;

    if Qry.BOF then
    begin
      FprmTo:= FprmFrom - 1;
      FprmFrom:= FprmTo - RecInterval;

      if FprmFrom < 1 then
      begin
        FprmFrom:= 1;
        FprmTo:= FprmFrom + RecInterval;
      end;

    end;
    btnAddClick(Sender);//фетч датасета с параметрами в доп.потоке
  end;
end;