Как удалить файл в pascal?

1
2
3
4
5
6

var
   SomeFile : TextFile;
begin
   AssignFile(SomeFile, 'C:\Temp\Test.txt');
   Erase(SomeFile);
end;