درخواست راهنمایی جهت استفاده از FTP

[khoshblagh]

با سلام خدمت دوستان و اساتید محترم
میخواهم از FTP و با Indy نسبت به نقل و انتقال فایل در شبکه داخلی شرکت و اینترنت استفاده نمایم. کد زیر از یک سایت خارجی با تغییرات بکار بردم و خطای زیر گرفته میشود. چرا؟ متشکرم.

procedure TfrmSabtGhabzDaryaft.btn1Click(Sender: TObject);

var

  objFTP: TidFTP;

  sCaminho: String;

begin

  sCaminho := 'C:\Applications\Refah.exe';

  System.SysUtils.DeleteFile(sCaminho);

  try

    objFTP := TIdFTP.Create;

    try

      objFTP.Host := '999.99.999.9';

      objFTP.Username := 'shirani';

      objFTP.Password := 'ََAAA_932';

      objFTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1.Create(objFTP);

      objFTP.UseTLS := utUseExplicitTLS;

      try

 //       objFTP.Port := 990;

        objFTP.Passive := True;

        objFTP.Connect;

        objFTP.ChangeDir('C:/Applications');

        objFTP.Get('Refah.exe', sCaminho);

      finally

        objFTP.Disconnect;

      end;

    finally

      FreeAndNil(objFTP);

    end;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

Untitled.png