Копирование из одного RichEdit в другой

[Nub200]

Здравствуйте, возникла проблемка с передачей свойств от одного RichEdit к другому (чтоб сохранялись разные размеры шрифта, цвета, стиля и т.п.). При написании данного кода:

procedure TMainForm.MainButtonClick(Sender: TObject);

var
MemoryStream: TMemoryStream;

begin

MemoryStream:=TMemoryStream.Create;

try
    MainRE.Lines.SaveToStream(MemoryStream);
    MemoryStream.Seek(0,soFromBeginning);
    SecRE.Lines.LoadFromStream(MemoryStream)}
  finally
    MemoryStream.Free;
      end;

MainRE.Text:='';

end;

Все копирует, но необходимо, чтоб текст не затерался, а добавлялся во втором RichEdit.
Попробовал второй код, но там явно что-то накосячил:

procedure TMainForm.MainButtonClick(Sender: TObject);

var
MemoryStream, SecStream:TMemoryStream;

begin

MemoryStream:=TMemoryStream.Create;
SecStream:=TMemoryStream.Create;
  try
  MemoryStream.Seek(0, soFromBeginning);
  SecStream.Seek(0, soFromBeginning);
  MainRE.Lines.SaveToStream(MemoryStream);
  SecRE.Lines.SaveToStream(SecStream);
  SecStream.Write(MemoryStream, SecStream.Size);
  SecRE.Lines.LoadFromStream(SecStream);
finally
    MemoryStream.Free;
    SecStream.Free;
  end;

MainRE.Text:='';

end;

Очень хочется услышать мнение специалистов.)
За ранее, спасибо.

[Nub200]

И снова здравствуйте. Копался со своей проблемкой и дошел до следующего.

Код:

procedure TMainForm.MainButtonClick(Sender: TObject);

var
MemoryStream, SecStream:TMemoryStream;
len: integer;
begin

MemoryStream:=TMemoryStream.Create;
SecStream:= TMemoryStream.Create;

try

//SecStream.Seek(0,soFromBeginning);
MainRE.Lines.SaveToStream(MemoryStr eam);
MemoryStream.Seek(0,soFromBeginning );
SecRE.Lines.SaveToStream(SecStream) ;
len:=length(SecRE.text);
SecStream.position:=len;
SecStream.CopyFrom(MemoryStream,0);
SecStream.Position:=0;
SecRE.Lines.LoadFromStream(SecStrea m);

finally
SecStream.Free;
MemoryStream.Free;
end;

MainRE.Text:='';

end;

Когда поле ввода, куда все будет копироваться (SecRE) еще пустое, то все передается без проблем, а вот когда там уже есть текст, то получаю вместо добавления текста следующее:

{\rt{\rtf1\ansi\ansicpg1251\deff0\d eflang1049{\fonttbl{\f0\fnil\fchars et204 Tahoma;}{\f1\fnil Tahoma;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\b\f0\fs24\' ef\'e0\'f1\'ee\'f7\'ea\'e0\cf0\b0\f 1
\par }

Подскажите, что не так делаю?)

[Аватар]

Так не получится. В rtf-формате есть своя структура с заголовком, блоками описания фонтов и собственно текста. Простое объединение двух таких кусков не даст новую rtf-структуру. Скорее всего программно по-символьного перетаскивать данные из одного RichEdit в другой с анализом формата. Возможно найдете продвинутый аналог RichEdit-а, где это реализовано