[vic]

К сожалению не помогает.
затыкается на
if not IdFTP1.Connected then IdFTP1.Connect;