{
Print example
}
procedure TForm1.FormCreate(Sender: TObject);
const
  // The path may need to be changed to accommodate locations of files
  // on your system.
  Path = '..\DEMOS\RICHEDIT\OVERVIEW.RTF';
begin
   RichEdit1.Lines.LoadFromFile(Path);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // The parameter string shows in the print queue under "Document   // name".
  RichEdit1.Print('My Document Name');
end;
 
