У меня есть вопрос, похожий наэтот, но в дельфи.

type
  TThreadPopulator = class(TThread)
  private
    _owner:TASyncPopulator; //Undeclared identifier
  end;

type
  TAsyncPopulator = class
  private
    _updater: TThreadPopulator;
  end;

Решение упомянутого вопроса не применимо к delphi