那里出了错？？

procedure TForm1.Doc1Click(Sender: TObject);
var
dd,aa:olevariant;
num,ii:integer;
sdir:string;
begin
for ii:=0 to (filelistbox1.Count-1) do
begin
filelistbox1.ItemIndex:=ii;
dd:=createoleobject('word.application');
aa:=dd.Documents.Open(filelistbox1.FileName);
sdir:=ExtractFileName(filelistbox1.FileName);
sdir:=copy(sdir,1,length(sdir)-4);
sdir:=filelistbox1.Directory+'\'+sdir+'.htm' ;
//showmessage(sdir);
aa.saveas(sdir,8);
dd.quit;
end;
end;
－－－－－－－－－－－－－－－－－－－－－
在执行一段时间后(大约120个文档时)他会提示：什么内存或磁盘空间不够不能读取和打印图片
可是我的磁盘空间还有6。9G啊！！那里处了错？？