nmftp 的LIST 方法调用问题，请指教！(50分)

我用DELPHI 5 编写一个FTP程序，虽然可以使用，但当用nmftp1.list; 来显示远程FTP服务器的
目录和文件列表时，一旦文件数量过多如超过1000个则CPU使用率一直为100%且无法关闭窗体，
不得不用DEL+CTRL+ALT来结束程序 ， 但文工件数较少时如几个或几十个却没问题，不知原因在哪，
还有什么办法，谢谢！ 程序如下：

procedure Tpu.Button3Click(Sender: TObject);
begin
memo1.Lines.Clear;
Q:=1;
nmftp1.ChangeDir(text1.text);
nmftp1.list;
end;

procedure Tpu.NMFTP1ListItem(Listing: String);
begin

memo1.Lines.Add(inttostr(Q)+':'+listing);
inc(Q);

end;