IdHTTP->Get в потоке и прогрессом

TIdHTTP *HTTP = new TIdHTTP(NULL);
    if (HTTP) {
        try {
            HTTP->ConnectTimeout = 10000;
            HTTP->ReadTimeout = 10000;
            if (HTTP->Connected()) HTTP->Disconnect();
            html = HTTP->Get("http://checkip.dyndns.com/");
        }
        catch (...) {} //Соединение не установлено
        try {HTTP->Socket->Close();}
        catch (...) {HTTP->Disconnect();}
        delete HTTP;
        HTTP = NULL;
    }

String html;
 
void __fastcall Th::Execute()
{
    int p1, p2;
    TIdHTTP *HTTP = new TIdHTTP(NULL);
    if (HTTP) {
        try {
            HTTP->ConnectTimeout = 10000;
            HTTP->ReadTimeout = 10000;
            if (HTTP->Connected()) HTTP->Disconnect();
            html = HTTP->Get("http://checkip.dyndns.com/");
        }
        catch (...) {} //Соединение не установлено
        try {HTTP->Socket->Close();}
        catch (...) {HTTP->Disconnect();}
        delete HTTP;
        HTTP = NULL;
    }
    p1 = html.Pos("Address:")+9;
    p2 = html.Pos("</body>");
    html = html.SubString(p1,p2-p1);
    Synchronize(&UpdateMemo);
}
 
void __fastcall Th::UpdateMemo()
{
        Form1->Memo1->Lines->Add("WAN IP: " + html);
}

if (Thread) Thread->Terminate();

if (Thread) //....

    DWORD Code;
    if (!GetExitCodeThread(hThread,&Code)) Memo1->Lines->Add("Error!");
    else if (Code == STILL_ACTIVE) Memo1->Lines->Add("Still active!");
    else Memo1->Lines->Add("Terminated");

void __fastcall T::Execute()
{
    do
    {
        ...
    }
    while (!Terminated);
}

void __fastcall ThreadHTTP::Execute()
{
    ///
    int i;
    while (i!=1000) {
    i++;
    Sleep(1000);
    Synchronize(&UpdateCaption);
    }
    ///
}

    T_HTTP->Resume();
    T_HTTP->Terminate();

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMyThread* Thread1 = new TMyThread(true);
 
Thread1->Resume();
Sleep(1000);
Thread1->Terminate();
}
//---------------------------------------------------------------------------

DWORD ec = 0;
      if(hThread && GetExitCodeThread(hThread,&ec) && (ec == STILL_ACTIVE))
      {
            if (T_HTTP->Finished)
            {
                  ShowMessage("Thread is finished!"); // После завершения поток самоудалится, поэтому сюда никогда не придем
            }
            else if (T_HTTP->Terminated)
            {
                  ShowMessage("Thread is terminated!"); // Это неверная диагностика. У потока _запросили_ завершение
            }
            else
            {
                  ShowMessage("Thread is working!"); // Поток работает
            }
      }
      else
      {
            // Поток завершен и удален автоматически, сбрасываем хендл в 0
            //(или он еще не был инициализирован, хендл и так нулевой)
            ShowMessage("Thread is not initialized!");
            hThread = 0;
      }

DWORD Code;
if(!GetExitCodeThread(hThread,&Code)) ShowMessage("Error!");
else
 if(Code== STILL_ACTIVE) ShowMessage("Still active!");
 else ShowMessage("Terminated");

    DWORD Code;
    if (GetExitCodeThread(hThread,&Code) && (Code == STILL_ACTIVE)) Memo1->Lines->Add("Still active!");
    else Memo1->Lines->Add("Terminated");