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;