object SqlSALES: TSqlVar
    SQL.Strings = (
      'SET NOCOUNT ON'
      ''
      'IF OBJECT_ID(N'#39'tempdb..#Sales'#39', N'#39'U'#39') IS NOT NULL '
      'DROP TABLE #Sales;'
      ''
      'IF OBJECT_ID(N'#39'tempdb..#ClientIDs'#39', N'#39'U'#39') IS NOT NULL '
      'DROP TABLE #ClientIDs;'
      ''
      '-- '#1055#1072#1088#1072#1084#1077#1090#1088#1099': '#1076#1072#1090#1072' '#1086#1090', '#1076#1072#1090#1072' '#1076#1086', '#1075#1088#1091#1087#1087#1072
      '-- '#1056#1077#1072#1083#1080#1079#1072#1094#1080#1103
      'SELECT '
        #9'OperDate,                                                  -- '#1044 +
        #1072#1090#1072
        ...

{%File 'Res\SRC\SQL\Import\Sectors\leafSectors.sql'}

library SomeProject;
{
  Текст между тегами ниже генерируется и обновляется автоматически!
  Этот фрагмент нужен для подключения исходных файлов ресурсов к поиску
  текста по файлам проекта.
  Для разового обновления запустить res/CompileRc/CompileAllResources.cmd
  Для автоматического обновления запустить _Автообновление ресурсов.cmd
  Пока работает автообновление, после каждого изменения исходных файлов в папке res\src
  автоматически запускается res/CompileRc/CompileAllResources.cmd
  Чтобы среда разработки автоматически подтягивала изменения, в ней должен быть
  открыт в редакторе исходник 'Res\AutoGenerated.rc'. <= Можно поместить
  курсор куда-нибудь сюда -----^^^^^^^^^^^^^^^^^^^^ и нажать Ctrl + Enter
}
{<AUTOGENERATED_RC>}
{%File 'Res\SRC\SQL\DB_Updates.sql'}
{%File 'Res\SRC\SQL\Foo\Sales.sql'}
{%File 'Res\SRC\SQL\Foo\Stocks.sql'}
...
{$R 'Res\AutoGenerated.res' 'Res\AutoGenerated.rc'}
{</AUTOGENERATED_RC>}
uses
...

SQL_DB_Updates         RCDATA  PREPARED\SQL_DB_Updates
SQL_Foo_Sales          RCDATA  PREPARED\SQL_Foo_Sales
SQL_Foo_Stocks         RCDATA  PREPARED\SQL_Foo_Stocks
...

const { watch, series } = require('gulp');
const spawn = require('child_process').spawn;
function compileResources(cb) {
var cmd = spawn('CompileRc\\CompileAllResources.cmd', [], {stdio: 'inherit'});
cmd.on('close', function (code) {
   cb(code);
});
}
exports.default = function() {
compileResources(code=>{})
watch('Src/**', compileResources); // series(compileResources, ...)
};

>gulp --version
CLI version: 2.3.0
Local version: 4.0.2
>node -v
v12.20.0

@Echo off
set BatchDir=%~dp0
cd %BatchDir%
touch ..\AutoGenerated.rc
FOR %%i IN ("%BatchDir%..") DO (set target=%%~fi)
echo.
echo [%TIME%] STARTING: ===== %target% =====
echo.
if not exist %BatchDir%..\prepared\*.* md %BatchDir%..\prepared > nul
call %BatchDir%..\AutoCompileRc.Config.cmd
FOR %%i IN ("%DprFile%") DO (set DprFileOnly=%%~nxi)
call %BatchDir%WaitWhileRunned.cmd git
cd %BatchDir%..
%BatchDir%bin\find SRC -type f | %BatchDir%bin\grep -E -v --file=%BatchDir%excludes.lst>%BatchDir%ResFiles.lst
%BatchDir%bin\perl %BatchDir%CreateRc.pl %BatchDir%ResFiles.lst AutoGenerated.rc %BatchDir%RcSources.lst %BatchDir%PrepareIt.cmd
cd %BatchDir%
echo {$R 'Res\AutoGenerated.res' 'Res\AutoGenerated.rc'}>>RcSources.lst
call between.cmd %DprFile% "\{<AUTOGENERATED_RC>\}\s*" "\{<\/AUTOGENERATED_RC>\}">RcSourcesOld.lst
fc RcSources.lst RcSourcesOld.lst>nul
if errorlevel 1 (
  call ReplaceBetween.cmd %DprFile% RcSources.lst "\{\<AUTOGENERATED_RC\>\}\s*" "\{\<\/AUTOGENERATED_RC\>\}">%DprFileOnly%.tmp
  copy %DprFileOnly%.tmp %DprFile%>nul
  del %DprFileOnly%.tmp
)
echo Preparing updated and new files...
cd ..
call %BatchDir%PrepareIt.cmd
echo Compiling resources...
brcc32 AutoGenerated.rc
cd %BatchDir%
echo.
echo [%TIME%] DONE: ===== %target% =====
echo.

#!c:/Perl/bin/perl
open (IN, "<".$ARGV[0]) || die $!;      # Список исходных файлов для ресурсов
open (RC_ENC, ">".$ARGV[1]) || die $!;  # Формируемый исходник (.rc)
open (LST, ">".$ARGV[2]) || die $!;     # Формируемый файл со списком
  # исходников, который будет вставлен в проект между тегами
  # {<AUTOGENERATED_RC>} и {</AUTOGENERATED_RC>}
open (ENC_CMD, ">".$ARGV[3]) || die $!; # Формируемый пакетный файл (.cmd)
  # для подготовки каждого изменённого файла (например, щифрование)
while(<IN>){
  split /\n/;
  $File = $_;                     # Для каждого из исходных файлов
  $File =~ s/\//\\/g;             # - приводим разделитель каталогов
  $File =~ s/\n//;                # - исключаем перевод строки
  $Name = $File;                  # Имя ресурса
  $Name =~ s/^Src\\//i;           # - исключаем префикс (папка)
  $Name =~ s/\\/_/g;              # - вместо разделителя каталогов — подчёркивание
  $Name =~ s/\..*$//;             # - исключаем расширение
  $Dest = "PREPARED\".$Name."";
  $_ = $File;
  $EncryptIt = ! /\\Bin\\/i;      # Ресурсы из папок и подпапок bin не шифруем
  print RC_ENC $Name
    , substr("                                        ", 1, 40 - length($Name))
    , "    RCDATA  "
    , $Dest
    , "\r\n";
  $_ = $File;
  if (! /\\Bin\\/i) {
    # Добавляем в проект текстовые ресурсы (здесь: формируем вставку в dpr файл)
    # Ресурсы из папок и подпапок bin не считаем текстом и в проект не включаем
    print LST
        "{\%File 'Res\"
      , $File
      , "'}\r\n";
  }
  # Только для новых или обновлённых файлов: добавляем команду на подготовку
  # (шифрование либо просто копирование)
  if (! (-f $Dest) || ( (stat $File)[9] > (stat $Dest)[9] ) ) {
    if ($EncryptIt) {
      # Шифрование: encrypt.cmd <источник> <приёмник> <имя ресурса в нижнем регистре>
      # имя ресурса может быть использовано для генерации пароля.
      # Еncrypt.cmd определяете самостоятельно.
      print ENC_CMD "call encrypt.cmd "
        , $File
        , substr("                                        ", 1, 40 - length($File))
        , " "
        , $Dest
        , " ""
        , lc $Name
        , ""\r\n";
    } else {
      print ENC_CMD "copy "
        , $File
        , substr("                                        ", 1, 40 - length($File))
        , " "
        , $Dest
        , ">nul\r\n";
    }
  }
}
close IN;
close RC_ENC;
close LST;
close ENC_CMD;

(******************************************************************************
  Ожидание (в отдельном потоке) изменений в папке, формирование
  соответствующего события.
  На основании широко известного примера:
  https://webdelphi.ru/2011/08/monitoring-izmenenij-v-direktoriyax-i-fajlax-sredstvami-delphi-chast-1/
  Проверяются события:
  - изменение имени файла или папки
  - изменение размера
  - изменение времени последней записи
******************************************************************************)
unit FolderMonitorCore;
interface
uses Classes, Windows, SysUtils;
type
  TFolderMonitorCore = class(TThread)
    private
      FDirectory: string;
      FScanSubDirs: boolean;
      FOnChange   : TNotifyEvent;
      procedure DoChange;
    public
      constructor Create(ASuspended: boolean; ADirectory:string; AScanSubDirs: boolean);
      property OnChange: TNotifyEvent read FOnChange write FOnChange;
    protected
      procedure Execute; override;
  end;
implementation
{ TFolderMonitorCore }
constructor TFolderMonitorCore.Create(ASuspended: boolean; ADirectory: string;
  AScanSubDirs: boolean);
begin
  inherited Create(ASuspended);
  FDirectory:=ADirectory;
  FScanSubDirs:=AScanSubDirs;
  FreeOnTerminate:=true;
end;
procedure TFolderMonitorCore.DoChange;
begin
  if Assigned(FOnChange) then
    FOnChange(Self);
end;
procedure TFolderMonitorCore.Execute;
var ChangeHandle: THandle;
begin
  // инициируем ожидание изменений, получаем соответствующий хэндл
  ChangeHandle:=FindFirstChangeNotification(PChar(FDirectory),
                                            FScanSubDirs,
                                            FILE_NOTIFY_CHANGE_FILE_NAME+
                                            FILE_NOTIFY_CHANGE_DIR_NAME+
                                            FILE_NOTIFY_CHANGE_SIZE+
                                            FILE_NOTIFY_CHANGE_LAST_WRITE
                                            );
  // Проверяем корректность инициации, иначе выбрасывается исключение
{$WARNINGS OFF}
  Win32Check(ChangeHandle <> INVALID_HANDLE_VALUE);
{$WARNINGS ON}
  try
    // выполняем цикл пока не получим запрос на завершение
    while not Terminated do
    begin
      { Важное отличие от оригинального примера: ожидание НЕ бесконечно,
        периодически проверяется флаг выхода }
      case WaitForSingleObject(ChangeHandle, 1000) of
        WAIT_FAILED: Terminate; {Ошибка, завершаем поток}
        WAIT_OBJECT_0: // Дождались изменений
          begin
            // Задержка — страховка от повторной реакции на несколько изменений подряд
            // в процессе единственного сохранения
            // (при сохранении исходника в Sublime Text выскакивало стабильно).
            // Проблема была следствием ключевого правила: если изменение происходит
            // ПОСЛЕ запуска приложения, то по окончании приложение запускается повторно.
            // Величина задержки подобрана пальцем в небо.
            sleep(5);
            WaitForSingleObject(ChangeHandle, 1); // изменение уже было, поэтому результат не проверяется
            // Ещё одно отличие: завершение имеет приоритет перед событием изменения
            if not Terminated then
              Synchronize(DoChange);
          end;
        WAIT_TIMEOUT: {DO NOTHING}; // идём на следующий круг,
                                    // либо завершаем по условию цикла
      end;
      FindNextChangeNotification(ChangeHandle);
    end;
  finally
    FindCloseChangeNotification(ChangeHandle);
  end;
end;
end.