Yo le agregue los caracteres procedure ImprimirCadenaRaw(S:String); const Kenter=CHR(13)+CHR(10); var Written: Integer; begin Written:=0; S:=S+Kenter; Printer.Write(S[1], Length(S), Written); end;