디렉토리가 있는지 확인해보셨나요?

디렉토리는 존재하는 것을 체크했습니다..
계속 Rewrite(F) 에서 파일을 찾을 수가 없다고 에러가 나는데요..

제가 했던 방법입니다...
procedure TForm1.Button3Click(Sender: TObject);
var
  MyFile   : TextFile;
  Field    : String;
  PathName : String;
  i        : Integer;
begin
   try
     PathName := ExtractFileDir(Edit1.Text) + '' +
                 Copy(ExtractFileName(Edit1.Text),1, Length(ExtractFileName(Edit1.Text)) - 4)+ '.lst';

     AssignFile(MyFile,PathName);
     Rewrite(MyFile);

     with StringGrid1 do
     begin
       for i := 1 to RowCount - 1 do
       begin
           Field := cells[1,i];
           WriteLn(MyFile, Field);
       end;
    end;
  finally
    CloseFile(MyFile);
  end; // Try...Finally end

end;