Cette procédure permet d'écrire différentes données avec un saut de ligne sur une périphérique, dans un fichier ou sur la console.

Procedure WriteLn([var fich:File,]var1,var2,...);

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;