Envio Via FTP

A rotina abaixo funciona beleza se o arquivo teste.txt tiver 1kb, mas se o arquivo tiver 63kb não dá certo. O aplicativo fica um tempão processando e depois retornar ´socket error #0´ ´socket error 5´.
Eu mudei a propriedade SendBufferSize para 512, mas mesmo com o valor padrão - 32768 - também dá o mesmo problema

IdFTP1.Connect;
IdFTP1.ChangeDir(´/public_html´);
IdFTP1.Put(´C:\Temp\teste.txt´,´teste.txt´);
ShowMessage(´Arquivo enviado.´);
IdFTP1.Disconnect;

Alguém pode me ajudar?

Obrigado.