[NumLock]

Код:

uses
  MSHTML,

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument3;
begin
  WebBrowser1.Navigate('http://j2me.webservis.ru/matrix/Matrix.htm');
  while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
    Application.ProcessMessages;
  HTMLDocument:=WebBrowser1.Document as IHTMLDocument3;
  Caption:=HTMLDocument.getElementById('cell11').tagName;
end;

http://data.cod.ru/134124