[NumLock]

еще пример с TWebBrowser:

PHP код:

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
...

procedure TForm1.FormCreate(Sender: TObject);
var
  document: OleVariant;
begin
  if WebBrowser1.Document=nil then WebBrowser1.Navigate('about:blank');
  while WebBrowser1.Document=nil do Application.ProcessMessages;
  document:=WebBrowser1.Document;
  document.clear;
  document.open;
  document.write('<div>hello</div>');
  document.write('<div>world</div>');
  document.close;
  while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.delphisources.ru/forum/showthread.php?t=12202');
end;