unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, JvComponentBase, JvRichEditToHtml, JvExStdCtrls, JvRichEdit, Buttons; type TfrmMain = class(TForm) JvRichEdit: TJvRichEdit; JvRichEditToHtml: TJvRichEditToHtml; btnLoad: TButton; btnSaveRTF: TButton; btnSaveHTML: TButton; btnClose: TBitBtn; procedure btnSaveRTFClick(Sender: TObject); procedure btnLoadClick(Sender: TObject); procedure btnSaveHTMLClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmMain: TfrmMain; implementation {$R *.dfm} procedure TfrmMain.btnSaveRTFClick(Sender: TObject); begin JvRichEdit.Lines.SaveToFile('test.rtf'); JvRichEdit.Lines.SaveToFile('test1.rtf'); JvRichEdit.Lines.SaveToFile('test.txt'); RenameFile('test1.rtf','testRFTasTXT.txt'); end; procedure TfrmMain.btnLoadClick(Sender: TObject); begin JvRichEdit.Lines.LoadFromFile('test.rtf'); end; procedure TfrmMain.btnSaveHTMLClick(Sender: TObject); begin JvRichEditToHTML.ConvertToHtml(JvRichEdit, 'test.html'); end; end.