最近给这个代码搞的头昏眼花，不知道有没有哪位大大可以帮忙解惑一下。    以下是FTPSERVER里的RetrieveFile代码，很是简单的代码：

procedure TFrmMain.IdFTPServerRetrieveFile(ASender: TIdFTPServerThread; const AFileName: string;
  Var VStream: TStream);
var
  tarFileName : String;
  fsStream : TFileStream;
begin
  tarFileName := StrGetRealPathName(TFTPClient(ASender.Data).RootPath,ASender.CurrentDir,AFilename);
  ReplaceString(tarFileName, '/', '\', False);      if FileExists(tarFileName) then
  begin
    fsStream := TFileStream.Create(tarFileName, fmOpenRead or fmShareDenyNone);
    VStream := fsStream;
  end
  else
    SendRFCReply(ASender, '550', Format('%s: No Such File Or Directory, Or File Not Avalaible Yet.', [AFileName]));
end;

蓝色部分是为了读取使用中文件的，否则不能传输使用中的文件。 但以上代码只在NT以上平台正常，在98下传输正常，但传输结束时就会产生一个蓝屏错误。不明白问题出在哪里，请各位大大帮忙看看。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.