TMonDirThread = class(TThread)
  private
    FPath: string;
    procedure ThreadStop1;
    procedure StartPrint;
    procedure ThreadStart1;
    procedure DeleteFile1;


  public
    constructor Create(const aPath: String); overload;
  protected
    procedure Execute; override;
  end;


procedure TMonDirThread.Execute;
var
  HandleChange: THandle;  // Handle создаваемого объекта для ожидания события 
begin 
// -- Создаем объект для ожидания события 
  HandleChange :=
    FindFirstChangeNotification(
      PChar(FPath),                           // Проверяемый каталог
      False,                                  // Подкаталоги не проверяются
      FILE_NOTIFY_CHANGE_FILE_NAME +          // Проверка создания/удаления/
      FILE_NOTIFY_CHANGE_ATTRIBUTES);         // переименования/изменения файлов

//{$WARN SYMBOL_PLATFORM OFF}
//// -- При ошибке Win32Check выводит сообщение и прерывает Execute.
//    System.SysUtils.Win32Check(HandleChange <> INVALID_HANDLE_VALUE);
//{$WARN SYMBOL_PLATFORM ON}

  Synchronize(ThreadStart1);               // Сообщение о старте потока



  try
// -- Цикл, пока для потока не будет выдана команда Terminate
    while not Terminated do
    begin
      case WaitForSingleObject(HandleChange, 1000) of
        WAIT_FAILED:   Terminate;                // Ошибка, завершаем поток
        WAIT_OBJECT_0: Synchronize(StartPrint); // Сообщаем об изменении

      end;


      FindNextChangeNotification(HandleChange);
    end;// while

  finally
    FindCloseChangeNotification(HandleChange);
//    CloseHandle(HandleChange);
  end;//try

  Synchronize(ThreadStop1);                     // Сообщаем о завершении потока
end;