клик на ссылку, зная часть имени !!!

[designer999]

Здравствуйте
Вот такой интересный вопрос, как можно нажать на ссылку зная её имя но не полностью, например для нажатия в google.ru на ссылку "Языковые инструменты" я использовал такой код:

procedure TForm1.Button1Click(Sender: TObject);
var  i:integer;
s:string;
mylink:olevariant;
begin
try
for i:=0 to form5.WebBrowser1.OleObject.Document.links.Length - 1 do
begin
s:=form5.WebBrowser1.OleObject.Document.links.Item(i).InnerText;
if s='Языковые инструменты' then
begin
mylink:=form5.WebBrowser1.OleObject.Document.links.Item(i);
form5.WebBrowser1.Navigate(mylink);
end;
end;
except
end;
end;

он работает прекрасно, но как его можно переделать так что бы нажать на ссылку зная не полностью её имя например не "Языковые инструменты" а "инструменты"
Буду благодарен за помощь

[Пепел Феникса]

дам две подсказки
1)

if s='Языковые инструменты' then

2)функция Pos

[designer999]

Пепел Феникса хочешь сказать что парсить страницу с помощью POS, не будет ли это долго по времени?

[Пепел Феникса]

первое это я указал место где нужно её применить.

то есть проверяем вхождение слова в названии.

if Pos('инструменты',s)<>0 then//тогда название ссылки содержит слово 'инструменты'

[designer999]

спс большое тебе, то что надо)