Извлечь выделенный текст в rtf формате RichEdit. Delphi7

//Извлекаем RTF текст из RichEdit
function GetRtfText(RichEdit : TRichEdit) : String;
var StringS : TStringStream;
begin
  //создаем пустую строку
  StringS := TStringStream.Create('');
  //запись текста из потока в переменную
  RichEdit.Lines.SaveToStream(StringS);
  //записываем результат
  Result := StringS.DataString;
  //очищаем StringS
  FreeAndNil(StringS);
end;

var
  REdit:TrichEdit
  RTFText:String;
 
//Извлекаем RTF текст из RichEdit
function GetRtfText(RichEdit : TRichEdit) : String;
var StringS : TStringStream;
begin
  //создаем пустую строку
  StringS := TStringStream.Create('');
  //запись текста из потока в переменную
  RichEdit.Lines.SaveToStream(StringS);
  //записываем результат
  Result := StringS.DataString;
  //очищаем StringS
  FreeAndNil(StringS);
end;
 
//нажатие какой-либо кнопки
begin
  RichEdit.CopyToClipboard;
  REdit.PasteFromClipboard;
  RTFText:=GetRtfText(REdit);
  REdit.Text:='';
end;