find and go URL

[alex0097]

Вообщем народ. Нужно зайти по ссылке http://site1.ru/a/
После этого он ищет текст
http://site1.ru/a/****
поля звездочки постоянно меняются.
Помогите реализовать, что бы он находил ссылку http://site1.ru/a/ со звездочками меняющимися и переходил по ним. И дальше он искал уже в ссылке http://site1.ru/aTo=****** текст http://site1.ru/aTomsg=****** и находил e-mail Вот наброски кода

Самое проблема в том что не могу реализовать
переход с http://site1.ru/a/ на поиск и переход по ссылке со звездочками http://site1.ru/aTo=******

var
  response : string;
  find1, find2, find3 : integer;
begin
  response := idHTTP1.Get('http://site1.ru/a/');




  find2 := pos('http://site1.ru/aTomsg=', response);
  response := copy(response, find2 + length('http://site1.ru/aTomsg='),
                length(response));
  find3 := pos('"', response);
  response := copy(response, 1, find3-1);

  if (random(30) = 0) then
    result := 'countofbots@mail.ru'
  else
    result := response;
end;

[Человек_Борща]

Используйте регулярные выражения.

[alex0097]

чего? я что то не понял

[Человек_Борща]

Просвящайся: 1 2