Получить ссылки из исходника страницы

[Shouldercannon]

Доброго времени суток!
Подскажите, пожалуйста, как получить все ссылки из исходного кода страницы?
Интересует способ поиска по http:// и https:// без "href=" и тому подобного.

[FaTaL]

Например функцией Pos

[Shouldercannon]

Если в коде страницы встречаются такие ссылки https://test.ru/ то тут всё понятно

  while Pos('https://', Source) > 0 do
  begin
    Delete(Source, 1, Pos('https://', Source) + Length('https://') - 1);
    Memo2.Lines.Add(Copy(Source, 1, Pos('/', Source) - 1));
  end;

Но попадаются ссылки вида https://test.ru. В данном случае код забирает весь ненужный текст до первого попавшегося /.
Решил проблему таким образом. Здесь не все символы по которым нужно делать обрезку.

function GetUrl(txt: String): String;
const
  Simbols = '"&''/?\';
var
  I: Integer;
  Passed: Boolean;
begin
  Result := '';
  for I := 1 to Length(txt) do
  begin
    Passed := False;
    if not Passed then
    begin
      if not Simbols.Contains(txt[I]) then Passed := True;
    end;
    if Passed then Result := Result + txt[I] else Break;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Source, s: String;
begin
  Source := Memo1.Text;
  while Pos('https://', Source) > 0 do
  begin
    Delete(Source, 1, Pos('https://', Source) + Length('https://') - 1);
    s := Copy(Source, 1, Length(Source));
    Memo2.Lines.Add(GetUrl(s));
    Application.ProcessMessages;
  end;
end;