Impressão utilizando acesso direto a porta com Delphi

gistfile1.pas

var
  Impressora: TextFile;
begin
  AssignFile(Impressora, 'lpt1:');
  ReWrite(Impressora);

  WriteLn(Impressora, 'Olá Mundo!');
  WriteLn(Impressora, 'Isto é uma impressão direta.');
  WriteLn(Impressora, #15'Imprimindo em condensado.'#18);

  CloseFile(Impressora);
end;