如題，關於RichEdit1與RichEdit2間傳送圖片的問題

RichEdit1.Lines.AddObject(RichEdit2.Text,SS);

若RichEdit2有加入文字和圖片後，按下Button後，RichEdit2內的文字可以顯示在RichEdit1內，但是圖片卻不會顯示！

請問有人知道如何解決這個問題嗎？

萬分感謝！

------
小ＬＯ

編輯記錄

我的意象所及，Delphi內建的TRichEdit是不支援顯示圖形的，可以看看以前網友提供的TRichEditPlus看看。
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=30957
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=30994

謝謝你的回覆，
我用的就是你提的那個範例~!
可是還是會出問題!

------
小ＬＯ

===================引 用 mayday741130 文 章===================
謝謝你的回覆，
我用的就是你提的那個範例~!
可是還是會出問題!


程式如下：
我要做一個類似即時通的表情符號的功能，在對話欄上打字，可以加入表情符號，按「送出對話」後，文字後接著圖案(表情符號)。
但出了一點小問題。

//這個是加入表情符號的按鈕
procedure TForm1.ToolButton4Click(Sender: TObject); // all
Var
BMP:TBitmap;
SS:TStringStream;
begin
BMP:=TBitmap.Create;
ImageList2.GetBitmap((Sender as TToolButton).ImageIndex,Bmp);
SS := TStringStream.Create(BitmapToRTF(BMP));
if RichEdit2.Text <>'' then
Addimage(RichEdit2,SS)
else
Addimage(RichEdit1,SS);
//SS.Free;
BMP.Free;
GoBOTTOM(RichEdit2);
Panel1.Visible := false;
end;

//這個是對話送出的按鈕
procedure TForm1.Button7Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Color:=ColorBox1.Selected;
if ToolButton1.Down then
RichEdit1.SelAttributes.Style:= RichEdit1.SelAttributes.Style [fsbold] ;
if ToolButton2.Down then
RichEdit1.SelAttributes.Style:= RichEdit1.SelAttributes.Style [fsItalic] ;
if ToolButton3.Down then
RichEdit1.SelAttributes.Style:= RichEdit1.SelAttributes.Style [fsUnderline] ;
//LoadFromFile('C:\O.bmp');
//RichEdit1.Lines.Add(RichEdit2.Text);
RichEdit1.Lines.AddObject(RichEdit2.Text,SS);
RichEdit1.Lines.Add('');
RichEdit2.Clear;
RichEdit2.SetFocus;

按送出後，只會出現文字，沒有圖，有誰知道出了什麼問題嗎?


感謝!!!

------
小ＬＯ