var
  myFile : TextFile;

begin
  // Позволяет нам открыть текстовый файл
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // И записать одну линию в него
  WriteLn(myFile, 'Hello World');

  // Затем закрываем его
  CloseFile(myFile);

  // И наконец стираем его
  Erase(myFile);

  // Если мы пробуем стереть его снова, мы поднимем исключение
  try
    Erase(myFile);
  except
    on E : Exception do
      ShowMessage('Нельзя удалить : '+E.Message);
  end;
end;