سلام
نمی دونم چی شده در یک پروسیجر میخوام فایل رو بازنویسی کنم با اینکه فایل وجود داره میگه وجود نداره؟
علاوه بر این وقتی از 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); خطا رخ میده