Delphi: Text/ASCII-Code Ausgabe am LPT1

Unter Pascal ging das noch so:
uses, printer
writeln(lst,‚text‘);

gibt es etwas in der art auch in Delphi?
Es dürfen keine zusätzlichen Steuerzeichen gesendet werden, die es nicht schon bei DOS gab.

Hier ein Beispiel

procedure TForm1.Button1Click(Sender: TObject);

var
MyFile: TextFile;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
Writeln(MyFile, ‚Dieser Text wird gedruckt.‘);
System.CloseFile(MyFile);
end;

mfg Vardert

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]