ObjectPascal Erase Procedure Erase a file System unit

procedure Erase ( var FileHandle : File; ) ;

Description The Erase procedure attempts to erase a file given by the FileHandle.   The file name must have been assigned to the given FileHandle by the AssignFile  routine.   If the file does not exist, then the EInOutError exception is raised. Related commands DeleteFile Delete a file specified by its file name Rename Rename a file RenameFile Rename a file or directory		Example code : Create a simple file, then try to delete it twice var   myFile : TextFile; begin   // Let us open a text file   AssignFile(myFile, 'Test.txt');   ReWrite(myFile);   // And write a single line to it   WriteLn(myFile, 'Hello World');   // Then close it   CloseFile(myFile);   // And finally erase it   Erase(myFile);   // If we try to raise it again, we'll raise an exception   try     Erase(myFile);   except     on E : Exception do       WriteLn('Cannot erase : '+E.Message);   end; end; Show full unit code    Cannot erase : File not found