procedureTForm1.Button1Click(Sender: TObject); var
lst: TextFile; sc: Integer; begin
//Printer.Orientation:=poPortraite AssignFile(lst,'prn'); Rewrite(lst); sc:=0; for
sc:=0 to
RichEdit1.Lines.Count-1 do
writeln(lst,StrToOem(RichEdit1.Lines[sc])); System.CloseFile(lst); end
;