Cette procédure effectue l'association entre un nom de fichier et une variable de type fichier (FILE).

Procedure AssignFile(Var F;FileName:String);

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;