函数中动态创建控件TNMFTP，怎样调用控件触发的事件ONLISTITEM阿？？(88分)

函数中动态创建控件TNMFTP，我用到它的方法：nmftp.Nlist,
怎样调用控件触发的事件ONLISTITEM阿？？函数大致如下：
function downDir(pfdcode:string):boolean;
var
NMFTP1:TNMFTP;
lstFile:Tstringlist;
procedure NMFTP1ListItem(Listing: String);//这是tnmftp的事件,用到函数中创建的lstfile
begin
lstfile.Add(listing);
end;
begin
NMFTP1:=TNMFTP.Create(application);
NMFTP1.Host :=pHost;
NMFTP1.Port := 21;
NMFTP1.Timeout := 60000;
NMFTP1.UserID :=pUser;
NMFTP1.Password :=pPass;
NMFTP1.Connect;
if nmftp1.CurrentDir<>'/'+pfdcode then
nmftp1.ChangeDir('/'+pfdcode);
lstfile:=Tstringlist.Create;
nmftp1.Nlist;
end;

//把这个函数提出来
procedure NMFTP1ListItem(Listing: String);
begin
lstfile.Add(listing);
end;

function downDir(pfdcode:string):boolean;
var
NMFTP1:TNMFTP;
lstFile:Tstringlist;
begin
NMFTP1:=TNMFTP.Create(application);

NMFTP1.OnListItem := NMFTP1ListItem; // 就是这句话了

NMFTP1.Host :=pHost;
NMFTP1.Port := 21;
NMFTP1.Timeout := 60000;
NMFTP1.UserID :=pUser;
NMFTP1.Password :=pPass;
NMFTP1.Connect;
if nmftp1.CurrentDir<>'/'+pfdcode then
nmftp1.ChangeDir('/'+pfdcode);
lstfile:=Tstringlist.Create;
nmftp1.Nlist;
end;

接受答案了.