نقل text من مكون RichEdit الى WebBrowser

[sa7er100]

السلام عليكم ورحمة الله وبركاته

اعمل على برنامج يظهر المعلومات المستقبلة من السيرفر الى الكلاينت على اداة richedit لكن المشكلة هي انه لا يعرض الصور

يمكن ان نضيف اداة WebBrowser لاظهار الصور لكن سؤالي هوو كييف نقل المعلومات الظاهرة على richedit الى WebBrowser

مـا هو الكود ؟؟
وشكراااااااااااااااااااااا

كود :

http://store1.up-00.com/Mar12/q6t48275.jpg

[sa7er100]

وجدت الكود

كود :

procedure richediteowbrs(WebBrowser1: TWebBrowser ; AHTMLCode : TStrings) ; var Data:OleVariant ; begin if WebBrowser1.Document = nil then WebBrowser1.Navigate('about:blank'); Data:= WebBrowser1.Document; Data.Write(AHTMLCode.Text); Data.Close; end; procedure TForm1.Button1Click(Sender: TObject); begin richediteowbrs(WebBrowser1,Richedit1.Lines); richedit1.Lines.Add(memo1.text); end;