p;  NMFTP1.Host := HostTxt.Text;  
    NMFTP1.Port := StrToInt(PortTxt.Text);  
    NMFTP1.Timeout := 5000;  
    NMFTP1.UserID := UserTxt.Text;  
    NMFTP1.Password := PassTxt.Text;  
     try  
    NMFTP1.Connect;  
     except  
    On E:Exception do  
     writeln(E.message);  
     end  
    end;  
    编写Button2的Click事件为:  
    procedure TForm1.Button2Click(Sender: TObject);  
    begin  
    NMFTP1.Disconnect;  
    end;  
    编写Button3的Click事件为:  
    procedure TForm1.Button3Click(Sender: TObject);  
    begin  
    try  
    NMFTP1.List;  
    except  
    end;  
    end;  
    另外FTP控件还具有其他功能,如:MakeDirectory(创建目录)、Re  
moveDir(删除目录)、Rename(文件更名)、Delete(删除文件)、Uploa  
d(上载文件)、Download(下载文件)等,在此不再讲述,大家如需要编  
写这些功能,可自己增加。  
    本程序在Windows98+Delphi5.0下调试通过。