while(1) //основной поток{ ... if(condition1) { CreateThread(...&SendToLAN,...); } ... if(condition2) { CreateThread(...&UpdateScreen,...); } ....}
Form1->Memo1->Lines->Add("Отправка запроса на вход в систему");
login_request->username=Form1->LabeledEdit1->Text;
BEGIN_MESSAGE_MAP MESSAGE_HANDLER(AM_UPDATELABEL, TMessage, onUpdateLabelFromThread) END_MESSAGE_MAP(TForm)