[ЖабаДушитКота]

Код:

  get_html:='wsd<http://www.sait/=1111 11111 11111> <http://www.sait/=2222 222222 2222222> <http://www.sait/=333333 333333 333333333> </html>';
  s_find:='<http://www.sait/=';

  len_doc:= length(get_html);
  len_find:=length(s_find);
  len_tage:=1;

  while (len_tage<>len_find) do begin
    len_tage:=posex(s_find,get_html,len_tage);
    If len_tage<>0 then begin
      s:=copy(get_html,len_tage, posex('>',get_html,len_tage) - len_tage + 1 );
      Memo1.Lines.Add(s);
    end;
    len_tage:=len_tage + len_find;
  end;