procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate

('http://yandex.ru/yandsearch?text='+Edit1.Text+'&lr=187');
end;