Помогите найти утечку

[garuna]

Добрый вечер! Имеется исходник небольшой программы, которая через ReadDirectoryChangesW определяет изменения файлов в заданной папке. Наличие утечки памяти определил через ReportMemoryLeaksOnShutdown, но понять в каком именно месте она происходит и как ее устранить не могу


Буду благодарен если у какого-нибудь здешнего профи найдется минутка глянуть код, исходник прилагаю:
https://yadi.sk/d/4Nsmrj1omoisX

[Stilet]

Учечка () может быть тут:

procedure TFolderMonWorker.Execute;
const
  cBufSize = 32 * 1024;  // 32k
var
  B: Pointer;
  vCount: DWord;
  vOffset: DWord;
  vFileInfo: PFILE_NOTIFY_INFORMATION;
begin
  GetMem(B, cBufSize);
  try
    while not Terminated do
    begin
      if Owner=nil then
        Exit;

Т.е. память занятая под B не освобождается, если Owner=nil

[garuna]

Сообщение от Stilet

Учечка () может быть тут:

procedure TFolderMonWorker.Execute;
const
  cBufSize = 32 * 1024;  // 32k
var
  B: Pointer;
  vCount: DWord;
  vOffset: DWord;
  vFileInfo: PFILE_NOTIFY_INFORMATION;
begin
  GetMem(B, cBufSize);
  try
    while not Terminated do
    begin
      if Owner=nil then
        Exit;

Т.е. память занятая под B не освобождается, если Owner=nil

Неа, явно не здесь. Exit находиться в блоке try finally, поэтому код в finally в любом случае выполняется.

[Stilet]

поэтому код в finally в любом случае выполняется.

М.м.м... Не знал об этом. Моя ошибка.

[Utkin]

А где TFolderMon.Create?
Короче в одном классе только конструктор, а в другом только деструктор. Не знаю, я бы на месте Делфи еще бы не такие финты выкидывал...