procedure TForm1.Button1Click(Sender: TObject); //запуск поиска

begin

    webbrowser1.Tag:=0;

    webbrowser1.Navigate('https://yandex.ru/images/search?source=collections&rpt=imageview&url='+memo1.Lines[0]);       //ищем по первой ссылке

end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;

  const pDisp: IDispatch; const URL: OleVariant);

  var doc:IHTMLDocument2;

begin

    application.ProcessMessages;

    if ((pdisp as iwebbrowser)= (ASender as TWebBrowser).DefaultInterface) then     //проверяем, что фрейм полностью загрузился

    begin

        (Asender as twebbrowser).defaultInterface.Document.QueryInterface(IHtmlDocument2,doc);

        parse_yandex(doc.body.innerHTML, memo2); //передаю в функцию парсера html-текст и целевое memo

    (asender as Twebbrowser).tag:=(asender as Twebbrowser).tag+1;   //tag показывает, какую по счету ссылку обрабатывает webbrowser

    if (asender as Twebbrowser).tag<memo1.Lines.Count then      //пока не дошли до конца, продолжаем искать по следующей ссылке

      (asender as Twebbrowser).Navigate('https://yandex.ru/images/search?source=collections&rpt=imageview&url='+memo1.Lines[(asender as Twebbrowser).tag])

 

     end;

 

end;

procedure tform1.parse_yandex(curhtml:string;memo:tmemo);

var

st,m, count,mparsestart,mparseend,curline:integer;

 

begin

   m:=1;

   count:=0;

   memo.Lines.add('');

   curline:=memo.Lines.Count-1;

   st:=pos('Кажется, на изображении',curhtml); //начало поиска

   while m>0 do

   begin

    count:=count+1;

            m:=posex('Button2-Text',curhtml,st);

            if m>0 then

            begin

                    mparsestart:=m+14;                                         //получаем начало слова

                    mparseend:=posex('/span',curhtml,mparsestart)-1;           //получаем конец слова

                    memo.lines.BeginUpdate;

                    memo.Lines[curline]:=memo2.Lines[curline]+copy(curhtml,mparsestart,mparseend-mparsestart)+' ';

                    memo.lines.endUpdate;

                    st:=mparseend;                                             //переходим к следующей выдаче.

                 end;

     end;

end;