WebBrowser - LoadFromStream

Mam problem z jedna rzeczą, zapisuję maila do strumienia TMemoryStream i teraz chcę wczytać tą zawartość do WebBrowsera ale jak [glowa]

Znalazłem kilka rzeczy na google ale nie działają :( np:

function TfrmPolaczenie.LoadFromStream(const AStream: TStream): HRESULT;
begin
	AStream.seek(0, 0);
	Result := (frmMain.WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;

  MS := TMemoryStream.Create;
  (frmPolaczenie.IdMessage.MessageParts.Items[0] as TIdText).Body.SaveToStream(MS);

  frmPolaczenie.LoadFromStream(MS);

Mam w strumieniu treść ale wyświetlenie/przekazanie jej do WebBrowsera już nie działa tzn. aplikacja stoi w miejscu nic się nie dzieje :| tak jakbym wpisał Exit; :-[

a to http://www.delphidabbler.com/articles?article=14

Właśnie z tego korzystam teraz ale i tak są tam błędy, które poprawiam [staram się :P] :(