infoarena

+---------------------------------+
|                                 |
|  web browswer                   | 
|                                 |         <- aici arata pagina
|                                 |
|                                 |                       
+---------------------------------+

+---------------------------------+
|                                 |
|    Editor(gen Notepad)          |
|                                 |        <- Editor
|                                 |
|                                 |                       
+---------------------------------+

procedure TForm1.Memo1Change(Sender: TObject);
begin
 Memo1.Lines.SaveToFile('temp.html');
 WebBrowser1.Navigate('d:\jhj\temp.html'); //am scris calea direct...
end;

function WbLoadFromStrings(wb: TWebBrowser; const AStrings: TStrings): HResult;
var
    M: TMemoryStream;
begin
    if not Assigned(wb.document) then AssignDocument(wb);
    M := TMemoryStream.Create;
    try
        AStrings.SaveToStream(M);
        Result := LoadFromStream(wb, M);
    except
        Result := S_FALSE;
    end;
    M.free;
end;

function WbLoadFromStrings(wb: TWebBrowser; const AStrings: TStrings): HResult;
var
    M: TMemoryStream;
begin
    M := TMemoryStream.Create;
    try
        AStrings.SaveToStream(M);
    	M.seek(0, 0);
      	Result := (wb.Document as IPersistStreamInit).Load(TStreamAdapter.Create(M));
    except
        Result := S_FALSE;
    end;
    M.free;
end;

WebBrowser1.Navigate('about:blank');

WbLoadFromStrings(wb, Memo1.Lines);