打开和保存的报错问题(50分)

我的目的是按行读取打开的文件，一行行加入listbox中，但是windows2000下和winme下都
没有问题，但是在98下，就报错，还是最常见的那种地址错误。而报错之后该读的也读取
进来了。另外就是保存用saveDialog和这个OpenDialog的问题一样，只是在98下报错。
因为没问题的机器都装有delphi，而出错的机器都没有delphi，所以我怀疑是需要某个
系统文件，但是不知道是哪个？请高手指点！
程序如下：
GetCurrentDirectory(40,buffer);
OpenDialog1.InitialDir:=buffer ;
if OpenDialog1.Execute then
begin
listbox1.clear;
AssignFile(docname, OpenDialog1.FileName);
Reset(docname);
Readln(docname, S);
while (not Eof(docname)) do
begin
Readln(docname, S);
listbox1.items.add(S);
end;
CloseFile(docname);
end;

如果是Delphi5，我不知道为什么，如果是Dephi6，可能原因是它本身的Bug，他的OpenDialog
针对不同版本，操作不同。

(失误。原文已经删除)

搞错了

你确定的你的缓冲区40个字符够吗?其它没看出什么错.

多人接受答案了。