[NumLock]

начать с этого:

Код:

var
  document: IHTMLDocument2;
  i: Integer;
  element: IHTMLElement;
begin
  document:=WebBrowser.Document as IHTMLDocument2;
  for i:=0 to document.all.length-1 do
  begin
    element:=document.all.item(i, 0) as IHTMLElement;
    if (element.tagName='DIV') and (element.className='props') then
      ShowMessage(element.innerText);
  end;
end;

остальное дело Pos/Copy