Cette procédure permet de créer un nouveau fichier ou d'écraser le contenu d'un fichier existant.

Procedure Rewrite(var F: File [; Recsize: Word ] );

procedure TForm1.Button1Click(Sender: TObject);
 var fichier: TextFile;
begin

 AssignFile(fichier,'c:\exemple\test.txt');
 Rewrite(fichier);
 Writeln(fichier,'Ecrit une ligne dans le fichier test.txt');
 CloseFile(fichier);

end;