وجدت الكود
كود :
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;