La forma de extraer el texto "con formato" de un richedit es utilizar un Stream.
Código Delphi
[-]
var
stream: TStringStream;
begin
stream := TStringStream.Create('');
RichEdit1.PlainText := False;
RichEdit1.Lines.SaveToStream(stream);
Memo1.Lines.Text := stream.DataString;
edit1.Text := := stream.DataString;
node.Text := stream.DataString;
...