How to print in a hurry

If you want to print text in a hurry without fancy formatting or setting up, try something like:

var
  f : TextFile;
begin
  AssignFile( f, 'LPT1' );
  Rewrite( f );

  //
  // do your printing here...
  //
  WriteLn( f, 'hello, world!');

  CloseFile( f );
end;