delphi – 为什么不在dll中调用threadTerminate

type
  TTest = class
  private
  public
     procedure threadStart();
     procedure threadEnd(Sender: TObject);
     procedure lines(value: String);
  end;

procedure TTest.threadStart();
var aThread : TThread;
begin
 aThread :=
    TThread.CreateAnonymousThread(
      procedure
      begin
         lines('start')
      end
    );
  aThread.FreeOnTerminate := True;
  aThread.OnTerminate := self.threadEnd;
  aThread.Start;
end;

procedure TTest.threadEnd;
begin
  lines('end')
end;

procedure TTest.lines(value: String);
  var MyText: TStringlist;
begin
  MyText:= TStringlist.create;
  MyText.Add(value);
  MyText.SaveToFile('.filename.txt');
  MyText.Free
end;

如果我从普通的VLC Delphi应用程序运行此代码,我会在文本文件中结束.
如果我从dll运行相同的代码(将其加载到静态或动态到VLC应用程序),我开始在文本文件中.

我的问题：为什么？或者更好的问一下,我怎么能让我的dll以与我的VLC相同的方式行事.我正在使用的当前版本是XE7.