关于FTP的DLL

Question

我想写一个FTP的DLL,下面的程序有什么错
library ftp;uses
  SysUtils,
  Classes,Psock, NMFtp;{$R *.res}
function FTPUpload(Host,UserId,Password,localFile,RemoteFile:String):integer;stdcall
var
  NMFTP1:NMFTP;
begin
  NMFTP1.Host:=Host;
  NMFTP1.User:=UserID;
  NMFTP1.Password:=Password;
  NMFTP1.Connect;
  NMFTP1.Put(LocalFile,RemoteFile);
  NMFTP1.Disconnect;
  Result:=1;
end;exports
  FTPUpload;
end编译时提示信息是nmftp没有初始化