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;