Q:  How do I write to a printer port?

A:

var
  Lpt2: TextFile;
begin
  AssignFile(Lpt2, 'LPT2');
  Rewrite(Lpt2);
  WriteLn(Lpt2, 'a few characters');
  CloseFile(Lpt2);
end;