🚀 go-pugleaf

Here is a complete program example showing my problem.  I've noticed that as 
soon as the Put() command is executed, my program appears to stop 
responding.  In other words, I can't move the window around, the button on 
the form disappears, and if I move another window over my program, my 
program window will not be redrawn after the other window is moved out of 
the way.  In addition, the upload is again going at a nearly imperceptable 
pace.  I thought that moving the upload code to its own thread might help, 
but it did not.  I looked at the CPU usage and it remained at 0% for my 
program, even though the CPU usage for ALL open programs was only at about 
3% (i.e. my system isn't bogged).  Furthermore, I can log into the FTP 
account via Internet Explorer and upload files at a fast pace, so the 
program appears to be somewhere inside my code.  Again, this is MY ENTIRE 
PROGRAM!  This is not a snippet from a larger piece of code.  It's seems 
very small and trivial, so I don't know what in the world could be the 
problem.  Compiling it only involves adding a button, a memo, an open 
dialog, and a TIdFTP component to a default New Application.


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (!OpenDialog1->Execute())
        return;

    AnsiString LocalFileName = OpenDialog1->FileName;
    AnsiString RemoteFileName = ExtractFileName(OpenDialog1->FileName);

    Memo1->Lines->Add("Connecting to ftp.tripod.com...");

    if (IdFTP1->Connected())
        IdFTP1->Disconnect();

    IdFTP1->Host = "ftp.tripod.com";
    IdFTP1->Port = 21;
    IdFTP1->User = "winboxer";
    IdFTP1->Password = "CENSORED";
    IdFTP1->Connect();

    Memo1->Lines->Add("Uploading selected file...");

    try
    {
        IdFTP1->Put(LocalFileName, RemoteFileName, false);
    }
    catch (Exception &e)
    {
        Application->ShowException(&e);
        IdFTP1->Disconnect();
        return;
    }

    Memo1->Lines->Add("File uploaded.  Disconnecting...");
    IdFTP1->Disconnect();
}
//---------------------------------------------------------------------------


Thanks
Blake