[v1s2222]

Можно например так:

Код:

var
  F: TextFile;
begin
...
  AssignFile(F, 'C:\1.txt');
  ReWrite(F);
  CloseFile(F);

Ну или если это не нравится, то можно удалить старый файл (DeleteFile(...)), а потом создать новый функцией CreateFile.