[Marvel]

попробуйте так:

Код:

uses OleCtrls, ActiveX, SHDocVw, MSHTML;

............

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);
var
  Document: IHTMLDocument2;
  V: OleVariant;
begin
  if WB.Document = nil then
    WB.Navigate('about:blank');
  while WB.Document = nil do
    Application.ProcessMessages;
  Document := WB.Document as IHtmlDocument2;
  V := VarArrayCreate([0,0], varVariant);
  V[0] := Text;
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;
end;

использовать так (предварительно кинув на форму компонент TWebBrowser из вкладки Internet):

Код:

  TextToWebBrowser('<script type="text/javascript" src="http://wmcasher.ru/wmcbonus.php?encoding=w"></script>'+
                   '<form action="http://wmcasher.ru/bonus/" method="post">'+
                   ' <p>Вы можете получить WMR-бонус в размере 0,01-0,10 WMR на'+
                   ' свой кошелек 1 раз в сутки</p> <p>Кошелек <input type="text" name="bonuspurse" value="R"'+
                   ' size="13" id="wmcbonuspurse"/><br/>  Код <img src="http://wmcasher.ru/captcha/" width="50"'+
                   ' height="21" alt="Защитный код"><input type="text"'+
                   ' name="keystring" value="" size="5" id="wmcbonuskeystring"/><br/> <input type="button"'+
                   ' value=" Получить бонус " onclick="getwmcbonus()"'+
                   ' style="width:120px"/></p> <p><a href="http://www.wmcasher.ru">Обмен Webmoney</a></p> </form>',
                   WebBrowser1);