Поиск ссылок в WebBrowser-е

while true do
    begin
    Application.ProcessMessages;
 
    st_pos:= PosEx('<div class="b-history-event__share-text_description"><a href="http://my.mail.ru/apps/710278',s,st_pos)+Length('<div class="b-history-event__share-text_description"><a href="');
 
    if (st_pos <= 100) then break;
 
    end_pos:= PosEx('"',s,st_pos);
    link:= Copy(s,st_pos,end_pos-st_pos);
    link:= StringReplace(link,'','',[rfReplaceAll]);
    is_present:= false;
    for i:= 0 to lnk_skipped.Count-1 do
    if lnk_skipped[i]= link then
    begin
    is_present:= true;
    break;
    end;
    if is_present then continue;
    lnk_skipped.Add(link);
    lnk_skipped.SaveToFile(ExtractFilePath(Application.ExeName)+'links_skipped.txt');
    ListBox1.Items.Add(link);
    Label4.Caption:= DateTimeToStr(today);       // Время отображение последней загруженной ссылки

st_pos:= PosEx('<div class="b-history-event__share-text_description"><a href="http://my.mail.ru/apps/710278',s,st_pos)+Length('<div class="b-history-event__share-text_description"><a href="');

var
  r: TRegExpr;
begin
  Memo2.Clear;
  r := TRegExpr.Create;
  r.InputString := Memo1.Text;
   r.Expression := '((http|https)://.*?)"';
  if r.Exec then
    repeat
      Memo2.Lines.Add(r.Match[1]);
    until not r.ExecNext;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('https://www.youtube.com/');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  //поиск всех ссылок на странице
  for i := 0 to WebBrowser1.OleObject.Document.Links.Length - 1 do
  begin
    Memo1.Lines.Add(WebBrowser1.OleObject.Document.Links.Item(i));
  end;
end;

function Pars(path: string): string;
begin
  //здесь твоя функция замени строку в коде http ://my.mail.ru/apps/710278
  //на переменную path
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //2 раза вызов функции с параметрами которые отойдут в переменную path
  Pars('http://my.mail.ru/apps/710278');
  Pars('https://my.mail.ru/apps/710278');
end;
 
end.