AssignFile(MyFile,FileName);
if FileExists(FileName) then
  Reset(MyFile) 
else
  ReWrite(MyFile);