Procedure TfrmFTPManager.FormCreate(Sender: TObject);
Var
  FTP_Host, FTP_User, FTP_Password: String;
  ConnectFile: TIniFile;
  ConnectINIFileName: String;
Begin
  ConnectINIFileName := ExtractFilePath(Application.ExeName) + 'connect.ini';

  If FileExists(ConnectINIFileName) Then
  Begin
    ConnectFile := TIniFile.Create(ConnectINIFileName);

    FTP_Host := ConnectFile.ReadString('FTPConfig', 'host', '');
    FTP_User := ConnectFile.ReadString('FTPConfig', 'user', '');
    FTP_Password := ConnectFile.ReadString('FTPConfig', 'password', '');

    If FTP_Host.Length < 1 Then
    Begin
      GenError('FTP Host cannot be empty. '#10#13'Application will now terminate.');
      Application.Terminate;
      Exit;
    End;

    If FTP_User.Length < 1 Then
    Begin
      GenError('FTP User cannot be empty. '#10#13'Application will now terminate.');
      Application.Terminate;
      Exit;
    End;

    If FTP_Password.Length < 1 Then
    Begin
      GenError('FTP Password cannot be empty. '#10#13'Application will now terminate.');
      Application.Terminate;
      Exit;
    End;

    ConnectFile.Free;

    With Ftp Do
    Begin
      Host := FTP_Host;
      Username := FTP_User;
      Password := FTP_Password;
    End;

    IdOpenSSLSetLibPath
      ('C:UsersJacquesDocumentsEmbarcaderoStudioProjectsFTP ManagerWin32Debug');

  End
  Else
  Begin
    GenError('Unable to find ' + ConnectINIFileName +
      ' file in application root directory. '#10#13'Application will now terminate.');
    Application.Terminate;
  End;
End;

Procedure TfrmFTPManager.Button1Click(Sender: TObject);
Begin
  Ftp.Connect;
  WhichFailedToLoad();

  // Ftp.ChangeDir ('/');
  // Ftp.Put ('C:ftp-test.txt', 'DEV/From_InternationalDebtControl/ftp-test1.txt');
  // Ftp.Disconnect;
End;