مشکل File not Found هنگام نوشتن فایل

[mbshareat]

سلام
نمی دونم چی شده در یک پروسیجر میخوام فایل رو بازنویسی کنم با اینکه فایل وجود داره میگه وجود نداره؟
علاوه بر این وقتی از try ..Except استفاده می کنم هم مانع بروز خطا نمیشه!
این هم کد. ببینید سر در میارید؟خودم که هیچ نظری ندارم.نمی دونم مشکل از چی هست.

procedure TMainForm.SaveFileStr(S:String;FileNo:Word=0);

Var

  F:File;

  MainName:String;

begin

  MainName:=Files[FileNo];

  AssignFile(F,MainName);

  if FileExists(MainName)=false then

    ShowMessage('Oh '+MainName+' not found!');

  try

    ReWrite(F,1);

    Seek(F,0);

    BlockWrite(F,Pointer(S)^,Length(S));

    CloseFile(F);

  Except

    ShowMessage(MainName);

  end;

end;

در سطر ReWrite(F,1); خطا رخ میده

[mbshareat]

نمی دونم پروسیجری که پروسیجر بالا رو فراخوانی می کنه به درد میخوره یا نه:

procedure TMainForm.DelVG177();

var

  I,J:Word;

  St:TStrings;

  S:String;

  InVGStatus:Byte;

begin

For I:=1 to FilesNo do

  Begin

St:=TStringList.Create;

    St.LoadFromFile(Files[I]);

    S:=Copy(St.Text,1,Length(St.Text)-2);

St.Free;

    InVGStatus:=0;

    For J:=Length(S)-1 Downto 1 do

    Begin

      if Copy(S,J,2)='GV' then

        InVGStatus:=1-InVGStatus

      else if (InVGStatus=1)

      And (S[J]=#177)  then

         Delete(S,J,1);

    End;

    SaveFileStr(S,I);

End;

end;

با این توضیح که در فایلها کارکتر 177 انتهای سطر حساب میشه و میخوام این کارکتر رو از وسط چیزی مثل تگ VG حذف کنم

اتفاق عجیب دیگه ای که میفته هم اینه که فقط در فایل اول کتابی که این پرو سیجر رو روش اجرا می کنم اتفاق میفته

[mbshareat]

دیگه دارم شاخ در میارم.فایل اجرایی و فایل های کتاب رو بردم یه شاخه دیگه اجرا کردم مشکلی پیش نیومد!!!!
دارم فکر می کنم نکنه مشکل از ویروس یابه!سر کار چند بار پیش اومد که kaspersky به خاطر حساسیت به نام یک متغیر،کامپوننتو حتی نام شاخه برنامه مانع تولید برنامه اجرایی شده.اما توی خونه که کد بالا مشکل پیدا کرده،نود 32 دارم!

[mbshareat]

لینک فایل اجرایی و فایلهای کتاب:
http://s9.picofile.com/file/83611262...Found.rar.html
میگم آپلود فایل هنوز سالمه؟من دو بار امتحان کردم آپلود شد اما به لیست فایلها اضافه نشد که ضمیمه کنم.مجبور شدم بذارم پیکو فایل.
وقتی این پوشه رو در \:D میذارم برنامه رو اجرا می کنم فایل اول خالی (صفر بایت میشه) و قسمت Except اجرا میشه.
ولی وقتی از D:\Bagher Prgs\Programming\DELPHI.PRJ اجرا می کنم فایل خراب نمیشه.
گذاشتم \:E مشکل نداشت. در D:\CD Images هم مشکل نداشت.

[mbshareat]

الآن سر کار امتحان کردم در درایو D برنامه فایل رو خالی نمی کرد. خدا رو شکر که مشکل همیشگی نیست.
نمی فهمم چطور فایل خالی رو معدوم حساب می کنه؟ احتمال میدم مشکل دسترسی رو با عدم فایل قاطی کرده!