Delphi - idftp - Podczas wysyłania pliku program nie odpowiada...

Witam
Kiedy wysyłam coś na serwer ftp poprzez komponent idftp to program "zamraża się", dopiero jak wyśle plik działa normalnie.

 
idftp1.Password:='*****';
    idftp1.Username:='m****';
    idftp1.Host:='ftp.*****.pl';
    idftp1.Connect();
    idftp1.Put(Plik,'www/delphi_data/' + ExtractFileName(OpenDialog1.FileName));
    Application.ProcessMessages;
    Sleep(250);
    idftp1.Disconnect;
    Application.ProcessMessages;
    Sleep(250);

Proszę o pomoc!

Od tego chyba jest komponent IdAntiFreeze czy jakoś tak.

Kiedy wysyłam coś na serwer ftp poprzez komponent idftp to program "zamraża się", dopiero jak wyśle plik działa normalnie.

No to napisz to w wątku ewentualnie zawsze można robić triki jak Application.ProcessMessages; na jakiś event co często leci.

Przecież wiadomo że jeżeli w mainie coś wysyłasz to program utknie tam dopóki to się nie skończy chyba że napiszesz to w wątku... -.-'