Сделать ProgressBar на отправку почты

    AnsiString sFile =  "C:\\001.jpg";
    TIdAttachment *pAttachment;
    pAttachment = new TIdAttachmentFile(IdMessage1->MessageParts, sFile);
        IdSMTP1->Username = "***@mail.ru";    //логин на сервере
    IdSMTP1->Password = "***";       // пароль
    IdSMTP1->Host = "smtp.mail.ru";      // URL smtp
 
    IdMessage1->Body->Text    = L"Test! И русский текст!\nNew string." ;    // текст
    IdMessage1->From->Address = "***@mail.ru";    //  отправитель
    IdMessage1->Recipients->EMailAddresses = "***@yandex.ru";    // получатель
 
    IdMessage1->Subject =  L"Test 3 with file.\n Тест" ;       // тема
    IdSMTP1->Port = 587;  // Порт для mail - 587, хотя на mail.ru сказано, что 465 !!!
    IdSMTP1->Connect();  // На этой строчке программа виснет, если не включить SSL
 
    if (IdSMTP1->Connected())
        IdSMTP1->Send(IdMessage1);
    else
        ShowMessage(L"Не удалось законнектиться!.. (((");
 
    IdSMTP1->Disconnect();

void __fastcall TForm1::IdSMTP1Work(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCount)
{
    ShowMessage(L"Проверка, что метод вызывается");
    Gauge1->Progress = AWorkCount;
    Application->ProcessMessages();
}

    ShowMessage(IdSMTP1->Version);