Ftp Upload Sorunu

[serqet]

Arkadaşlar merhaba aranıza yeni katıldım ve yaşadığım sorunla ilgili desteğinize ihtiyacım var. Kullanmış olduğum telefon santralin in içinde bir yazılım var ve ftp yoluyla dosya atıyoruz ben bunu delphi aracılığıyla bir kod yazıp bu şekilde ftp den göndermek istiyorum, aslında kodu araştırıp buldum fakat şöyle bir sorun var ben sırayla arka arkaya 9 tane dosyayı göndermesini istiyorum fakat program ilk dosyayı yolluyor ama ikincide "EldprotocolReplyError with message proces stoped" şeklinde hata veriyor ne yaptıysam geçemedim burayı kodlarım aşağıda desteklerinizi bekliyorum. Çok teşekkürler.

procedure TForm1.btnGonderClick(Sender: TObject);
begin

idftp1.Host := '192.168.2.161';
idftp1.Username :='anonymous';
idftp1.Password :='User@qq.ads';
idftp1.Connect;

if IdFTP1.Connected then
begin

try
idftp1.ChangeDir('/01 muzik/');
IdFTP1.Put(PChar(Edit2.Text), ExtractFileName('deneme.wav'));
ShowMessage('1 bitti');
idftp1.ChangeDir('/03 mesgul/');
IdFTP1.Put(PChar(Edit5.Text), ExtractFileName('deneme1.wav'));
ShowMessage('2 bitti');
finally
end;
IdFTP1.Disconnect;

end;
end;