[NumLock]

ну уж тогда:

Код:

uses
  MSHTML, 

var
  document: IHTMLDocument2;
  all: IHTMLElementCollection;
  element: IHTMLElement;
  i: Integer;
begin
  WebBrowser1.Navigate('http://jobinmoscow.ru/rab.php');
  while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
    Application.ProcessMessages;
  document:=WebBrowser1.Document as IHTMLDocument2;
  all:=document.all;
  for i:=0 to all.length-1 do
  begin
    element:=all.item(i, '') as IHTMLElement;
    Memo1.Lines.Add(element.innerText);
  end;
end;