[Lmas]

Hola Adrix.

Vamos con la carga desde el memo ese...

Aquí tienes un procedimiento.

uses 
  ActiveX;
   
procedure WB_LoadHTML(AWebBrowser: TWebBrowser; AStream: TStream);
begin 
  // No  debe haber espacio entre la t y los dos puntos.
  // Parece que lo mete de propina el editor de post ¿?
  AWebBrowser.Navigate('about:blank'); 
  while AWebBrowser.ReadyState < READYSTATE_INTERACTIVE do 
   Application.ProcessMessages; 

  if Assigned(AWebBrowser.Document) and Assigned(AStream) then
  begin 
    AStream.Seek(0, 0);
    (AWebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
  end;
end;

Para "vaciar" un WebBrowser:

WB_LoadHTML(WebBrowser1, nil);

Para cargar un archivo HTML en el WebBrowser:

var
  fs: TFileStream;
begin
  fs := TFileStream.Create('a:\donde\andaras\tu.html', fmOpenRead);
  try
    WB_LoadHTML(WebBrowser1, fs);
  finally
    fs.Free;
  end;
end;

Y para "llenar" el WebBrowser con un campo memo:

var
  bs: TBlobStream;
begin
  // MEMO_FIELD será el nombre del campo que se quiere cargar
  bs := TBlobStream.Create(MEMO_FIELD, bmRead);
  try
    WB_LoadHTML(WebBrowser1, bs);
  finally
    bs.Free;
  end;
end;