关于用ics的ftpclient做的下载程序.连续下载一定数量的文件后会造成机器重启的问题,请教各位大虾!

下载的代码如下,G_FN是取出文件名的函数.
if MessageDlg('是否立即下载文件?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begindir:='f:\DownTemp';
 if not DirectoryExists(Dir) then
   CreateDirectory(Pchar(Dir), nil) ;
 dir:='f:\DownTemp'+'\'+G_fn('/',url) ;
 ftpclient1.Passive:=true;
 if ftpclient1.Connected then
 begin
 suistatusbar1.Panels[1].Text:='成功连结主机';
 FtpClient1.HostFileName:='/wgall/'+G_FN('/',url);
 FtpClient1.LocalFileName:=dir;
 Ftpclient1.get
 end
 else
 begin
 ftpClient1.Connect;
 suistatusbar1.Panels[1].Text:='成功连结主机';
 FtpClient1.HostFileName:='/wgall/'+G_FN('/',url);
 FtpClient1.LocalFileName:=dir;
 Ftpclient1.get
 end;
end
end;
上述代码会造成机器重启吗?很多台机器(2000系统)上都试了.同样的会重启.