ftp的问题（不会太难）(50分)

我用NMFTP控件编写一个FTP程序， 用NMFTP的LIST方法显示文件列表，同时调用了NMFTP的
LISTITEM的方法，但调用LIST方法（即点击显示按钮BOTTON5时）程序似乎无法停止，当再点
击显示按钮， 出现A List Command Is Already being processed 程序摘要如下请指教：
procedure Tpu.Button6Click(Sender: TObject);
begin
memo1.Lines.Clear;
Q:=1;
nmftp1.list;
end;
procedure Tpu.NMFTP1ListItem(Listing: String);
begin
memo1.Lines.Add(inttostr(Q)+':'+listing);
inc(Q);
end;