Imprimir o texto direto na porta da impressora

//Use o procedimento abaixo:

procedure Imprime;
varOutFile: TextFile;beginAssignFile(Outfile, 'LPT1'); // ou LPT2 ou LPT3
Rewrite(OutFile);
Writeln(OutFile, 'Esta é a primeira linha');
Writeln(OutFile, 'Esta é a segunda linha');
Closefile(OutFile);
end;