Создайте дополнительный поток MyThread и класс MyClass.

В файле Main.cpp:
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
MyThread *thr;
 cls = new MyClass();
 thr = new MyThread();
 cls->Stop = thr;
 thr->OnFun = cls->Execute;
}
void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
 delete cls;
}

В файле MyThread.cpp:
void __fastcall MyThread::Execute()
{
 OnFun();
}

В файле MyThread.h:
public:
 typedef void __fastcall (__closure *_OnFun)(void);
 _OnFun OnFun;

В файле MyClass.cpp:
void __fastcall MyClass::Execute()
{
 while(true)
 {
   if (Stop->Terminated)
     break;
 }
}

В файле MyClass.h:
public:
 MyThread *Stop;
 void __fastcall Execute();

При компиляции вылетает ошибка, почему и как с ней бороться?
Используется Builder 5.