Sobre Escribir un archivo de texto Delphi

Para crear un fichero y sobreescribirlo si ya existía con esto es suficiente:

procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
begin
AssignFile(F, \'C:\\Test\\File.txt\');
Rewrite(F);
Writeln(F, \'Escriban lo que quieran o envíen una cadena de una variable...\');
CloseFile(F);

end;


c'ya