unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Psock, NMFtp, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    // 以下宣告 TNMFTP 的各個 Event, 這裏列出全部, 只需宣告您宣告的即可 
    procedure NMFTP1AuthenticationFailed(var Handled: Boolean);
    procedure NMFTP1AuthenticationNeeded(var Handled: Boolean);
    procedure NMFTP1Connect(Sender: TObject);
    procedure NMFTP1ConnectionFailed(Sender: TObject);
    procedure NMFTP1ConnectionRequired(var Handled: Boolean);
    procedure NMFTP1Disconnect(Sender: TObject);
    procedure NMFTP1Error(Sender: TComponent; Errno: Word; Errmsg: String);
    procedure NMFTP1Failure(var Handled: Boolean; Trans_Type: TCmdType);
    procedure NMFTP1HostResolved(Sender: TComponent);
    procedure NMFTP1InvalidHost(var Handled: Boolean);
    procedure NMFTP1ListItem(Listing: String);
    procedure NMFTP1PacketRecvd(Sender: TObject);
    procedure NMFTP1PacketSent(Sender: TObject);
    procedure NMFTP1Status(Sender: TComponent; Status: String);
    procedure NMFTP1Success(Trans_Type: TCmdType);
    procedure NMFTP1TransactionStart(Sender: TObject);
    procedure NMFTP1TransactionStop(Sender: TObject);
    procedure NMFTP1UnSupportedFunction(Trans_Type: TCmdType);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  ftp: TNMFTP;    implementation    {$R *.DFM}    procedure TForm1.NMFTP1AuthenticationFailed(var Handled: Boolean);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1AuthenticationNeeded(var Handled: Boolean);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1Connect(Sender: TObject);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1ConnectionFailed(Sender: TObject);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1ConnectionRequired(var Handled: Boolean);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1Disconnect(Sender: TObject);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1Error(Sender: TComponent; Errno: Word;
  Errmsg: String);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1Failure(var Handled: Boolean; Trans_Type: TCmdType);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1HostResolved(Sender: TComponent);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1InvalidHost(var Handled: Boolean);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1ListItem(Listing: String);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1PacketSent(Sender: TObject);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1Status(Sender: TComponent; Status: String);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1TransactionStart(Sender: TObject);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1TransactionStop(Sender: TObject);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.NMFTP1UnSupportedFunction(Trans_Type: TCmdType);
begin
// 實作 Event(配合宣告的部份)
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ftp := TNMFTP.Create(Self);
  // 以下指定 fpt 元件的各個 Event
  ftp.OnAuthenticationFailed := NMFTP1AuthenticationFailed;
  ftp.OnAuthenticationNeeded := NMFTP1AuthenticationNeeded;
  ftp.OnConnect := NMFTP1Connect;
  ftp.OnConnectionFailed := NMFTP1ConnectionFailed;
  ftp.OnConnectionRequired := NMFTP1ConnectionRequired;
  // 以此類推
end.