Печать из RichEdit

[Claster]

Не могу понять в чё проблема:

procedure TForm1.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;

end.

StrToOem->неизвестный иденитификатор

[_Dmitry]

Нет в Delphi такой функции, придётся самому писать...

function StrToOem(const S: string): string;
begin
  SetLength(Result,Length(S));
  if Length(Result) > 0 then AnsiToOem(PChar(S),PChar(Result));
end;

[Claster]

Огромное спасибо