Código Delphi [-] with TFileStream.Create('LPT1', fmOpenWrite) do try Write(#13#10, 2); finally Free; end;
with TFileStream.Create('LPT1', fmOpenWrite) do try Write(#13#10, 2); finally Free; end;