🚀 go-pugleaf

I am using indy 9 with BCB6.0

I want to download some xml files in stream format.

TldHTTP component dropped on the main form with properties
HandleRedirects = true;
Connection = Keep-Alive;
CacheControl = no-cache;
ConnectTimeout = 0;

//Header file
TMemoryStream *XMLStream;
String ErrorStream;

TDateTime ReceivedTime,TakeTime;
long int 
TotalPackets,OneTimeReceivedPackets,PreviousPackets,Duration,TrasferRate;


//Cpp file.
void TfrmMain::DownloadStream(String URL)
{
    try
    {
        ErrorStream = "";
        HTTP->Get(URL, XMLStream);
    }
    catch(const Exception &E)
    {
         if(HTTP->Connected())
                 HTTP->Disconnect();

         ErrStream = E.Message;
    }
}

//I am displaying a progress bar
void __fastcall TfrmMain::HTTPConnected(TObject *Sender)
{
    Application->ProcessMessages();
    this->Update();
    lblDownloadStatus->Caption = "Connected.";
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::HTTPWorkBegin(TObject *Sender,
      TWorkMode AWorkMode, const int AWorkCountMax)
{
    Application->ProcessMessages();
    this->Update();

    ProgressBar1->Position = 0;
    ProgressBar1->Max = AWorkCountMax;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::HTTPWork(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
    Application->ProcessMessages();
    this->Update();

    ProgressBar1->Position = AWorkCount;
    ProgressBar1->Update();
//---------------------------------------------------------------------------

As i TldHTTP dropped in GUI form. It is blocking the GUI messages but i 
don't have any problem when the internet speed and server is response is 
good.

I have the following problem.
1.When the server is busy it is waiting for something 10-15 seconds and then 
raising the exception.
2.And some times the form is freezing and form is not responding.

Questions
1. Have anybody experienced this problem. Why the same code is not 
responding at some occasions.
2. Even if responding its taking time, can we make it active, reduce the 
checking time.
3  Setting ConnectTimeout can make any difference, does it work in this 
case.