void Thread( void* pParams ) {
Делаем то что нужно...
_endthread();// завершаем поток }
void __fastcall TForm1::Button1DblClick(TObject *Sender) { _beginthread( Thread, 0, NULL ); //вызов потока }