امید وارم این دستور کمک کتون که فایل تکراری رو هم قبول میکنه
IdFTP1.Connect
در اینجا هاست رو می گیرد=={ IdFTP1.Host := Edit4.Text
IdFTP1.Username := Edit2.Text
IdFTP1.Password := Edit3.Text
application.ProcessMessages
IdFTP1.Connect;}
این ادیت ادرس فایل رو میگیرد=== f := Edit1.Text
if IdFTP1.Connected then
begin
application.ProcessMessages
IdFTP1.ChangeDir('/')
ProgressBar1.Visible := True
ProgressBar1.Max :=10
application.ProcessMessages
IdFTP1.Put(f, ExtractFileName(f))
application.ProcessMessages