[Kipow]

Proba con esto :

Código Delphi [-]var f : TextFile; begin AssignFile(f,'lpt1'); try Rewrite(f); Write (f, #27+#15); finally CloseFile(f); end;