(В редакторе свойств ничего не менял.)

Произвожу закачку файла. Зависает на методе Put.
Подскажите. На какие свойства необходимо обратить внимание?

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 IdFTP.Host:= 'ftp.narod.ru';
 IdFTP.Username:= 'vyksa09';
 IdFTP.Password:= '0909';
 IdFTP.Connect(True, 4000);
 if IdFTP.Connected then begin
   IdFTP.ChangeDir('update/');
   IdFTP.Put(ExtractFilePath(ParamStr(0))+'\123.zip','123.zip',True);
 end;//if
 IdFTP.Quit;
end;

Что есть "зависает" ?