[Onti]

Hola:

Puedes probar con este codigo

procedure TForm1.Button1Click(Sender: TObject);

var
  MyFile: TextFile;
begin
  AssignPrn(MyFile);
  Rewrite(MyFile);
  Writeln(MyFile, 'linea 1');
  ..
  ..
  Writeln(MyFile, 'linea 2');
  System.CloseFile(MyFile);
end;

Salu2