Мисля, че за качването на файл не е нужно да се товари програмата с Indy. Достатъчно функции предлага и wininet:

uses ....., wininet;

Function PutFileToFTP(filename:string;host_url:string;Login:string ,Password_:string;wwwfile:string):boolean;
var intconn,intopen : hinternet;

begin

intopen := internetopen(PChar(Application.Title),INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
intconn := internetconnect(intopen,pchar(host_url),21,pchar(Login),pchar(Password_),INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
ftpputfile(intconn,pchar(filename),pchar(wwwfile),FTP_TRANSFER_TYPE_UNKNOWN,0);
if getlasterror() = 0 then begin //check if ftp server worked (ftp is online)
internetclosehandle(intopen);
Result:=True;
end;

end;