XE5 FTPSERVER

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdContext,
  IdFTPServer, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer, IdCmdTCPServer,
  IdExplicitTLSClientServerBase, IdPOP3Server,IdFTPListOutput,IOUtils,IdFTPList ;

type
  TForm1 = class(TForm)
    IdPOP3Server1: TIdPOP3Server;
    IdIOHandlerStack1: TIdIOHandlerStack;
    IdFTPServer1: TIdFTPServer;
    procedure IdFTPServer1UserLogin(ASender: TIdFTPServerContext;
      const AUsername, APassword: string; var AAuthenticated: Boolean);
    procedure IdFTPServer1ChangeDirectory(ASender: TIdFTPServerContext;
      var VDirectory: string);
    procedure IdFTPServer1DeleteFile(ASender: TIdFTPServerContext;
      const APathName: string);
    procedure FormCreate(Sender: TObject);
    procedure IdFTPServer1Li