Fórum idftp Criar em run time #332633

var
IdFTP1: TIdFTP;
lista :tstringlist;
PS: TIdFtpProxySettings;
begin
   PS:=TIdFtpProxySettings.Create;
   PS.ProxyType:= fpcmNone;

   TIdFTP.create(IdFTP1);
   IdFTP1.ProxySettings:= PS;
   showmessage (´´);
   IdFTP1.MaxLineAction:= maException;
   IdFTP1.Passive      := False;
   IdFTP1.TransferType := ftBinary;
   IdFTP1.CanResume;