Retornando erro ao enviar arquivos por FTP

Oi pessoal.

Eu fiz uma rotina de envio de imagens para um ftp que eu tenho na internet.

Só que fiz para envio de doze imagens de uma vez, poré está retornando erro...

Segue abaixo o meu código...

/////////////////////// // Enviando as FOTOS // /////////////////////// if foto1 <> '' then contadorFoto := contadorFoto + 1; if foto2 <> '' then contadorFoto := contadorFoto + 1; if foto3 <> '' then contadorFoto := contadorFoto + 1; if foto4 <> '' then contadorFoto := contadorFoto + 1; if foto5 <> '' then contadorFoto := contadorFoto + 1; if foto6 <> '' then contadorFoto := contadorFoto + 1; if foto7 <> '' then contadorFoto := contadorFoto + 1; if foto8 <> '' then contadorFoto := contadorFoto + 1; if foto9 <> '' then contadorFoto := contadorFoto + 1; if foto10 <> '' then contadorFoto := contadorFoto + 1; if foto11 <> '' then contadorFoto := contadorFoto + 1; if foto12 <> '' then contadorFoto := contadorFoto + 1; // Verifica se tem fotos para serem enviadas if contadorFoto > 0 then begin if foto1 <> '' then begin nfoto1 := splitstr(foto1,'.',1); efoto1 := splitstr(foto1,'.',2); foto1 := geraNome(35) +'.'+ efoto1; end; if foto2 <> '' then begin nfoto2 := splitstr(foto2,'.',1); efoto2 := splitstr(foto2,'.',2); foto2 := geraNome(35) +'.'+ efoto2; end; if foto3 <> '' then begin nfoto3 := splitstr(foto3,'.',1); efoto3 := splitstr(foto3,'.',2); foto3 := geraNome(35) +'.'+ efoto3; end; if foto4 <> '' then begin nfoto4 := splitstr(foto4,'.',1); efoto4 := splitstr(foto4,'.',2); foto4 := geraNome(35) +'.'+ efoto4; end; if foto5 <> '' then begin nfoto5 := splitstr(foto5,'.',1); efoto5 := splitstr(foto5,'.',2); foto5 := geraNome(35) +'.'+ efoto5; end; if foto6 <> '' then begin nfoto6 := splitstr(foto6,'.',1); efoto6 := splitstr(foto6,'.',2); foto6 := geraNome(35) +'.'+ efoto6; end; if foto7 <> '' then begin nfoto7 := splitstr(foto7,'.',1); efoto7 := splitstr(foto7,'.',2); foto7 := geraNome(35) +'.'+ efoto7; end; if foto8 <> '' then begin nfoto8 := splitstr(foto8,'.',1); efoto8 := splitstr(foto8,'.',2); foto8 := geraNome(35) +'.'+ efoto8; end; if foto9 <> '' then begin nfoto9 := splitstr(foto9,'.',1); efoto9 := splitstr(foto9,'.',2); foto9 := geraNome(35) +'.'+ efoto9; end; if foto10 <> '' then begin nfoto10 := splitstr(foto10,'.',1); efoto10 := splitstr(foto10,'.',2); foto10 := geraNome(35) +'.'+ efoto10; end; if foto11 <> '' then begin nfoto11 := splitstr(foto11,'.',1); efoto11 := splitstr(foto11,'.',2); foto11 := geraNome(35) +'.'+ efoto11; end; if foto12 <> '' then begin nfoto12 := splitstr(foto12,'.',1); efoto12 := splitstr(foto12,'.',2); foto12 := geraNome(35) +'.'+ efoto12; end; // Seta o diretorio para envio das imagens diretorio := '/public_html/admin_admin/diney/fotos'; // Conectando no FTP with IdFTP1 do try Username := '33333'; Password := '33333'; Host := '127.0.0.1'; Connect; ChangeDir(diretorio); finally end; try if foto1 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto1+'.'+efoto1, foto1); end; { if foto2 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto2+'.'+efoto2, foto2); end; if foto3 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto3+'.'+efoto3, foto3); end; if foto4 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto4+'.'+efoto4, foto4); end; if foto5 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto5+'.'+efoto5, foto5); end; if foto6 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto6+'.'+efoto6, foto6); end; if foto7 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto7+'.'+efoto7, foto7); end; if foto8 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto8+'.'+efoto8, foto8); end; if foto9 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto9+'.'+efoto9, foto9); end; if foto10 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto10+'.'+efoto10, foto10); end; if foto11 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto11+'.'+efoto11, foto11); end; if foto12 <> '' then begin Label44.Caption := 'Fazendo upload das fotos selecionadas...'; IdFTP1.Put(nfoto12+'.'+efoto12, foto12); end; } finally IdFTP1.Disconnect; end; end;As variaveis foto1 ... foto12 é onde eu guardo os caminhos da imagem que será enviadas.

Espero que possam analizar este código e me orientar melhor nesta questão de envio, pois da forma que esta aí, esta dando uma espécie de TimeOut... Mas não é bem assim o erro.

Eu gostaria de achar uma forma melhor de usar esse componente de envio de arquivos para o ftp.

Abraços