Помогите с гуглом!

Всем привет! Я хочу на Делфи написать программу, которая будет переходить по сайтам в гуглах(чет,кажись,непонятно будет...)
Я написал процедуру:

Code:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute(TForm(Owner).Handle,nil,PChar('http://www.google.ru/search?hl=ru&rlz=1R2ADFA_ruRU357&newwindow=1&q='), nil, nil,SW_SHOWNORMAL);
end;

НО он в IE и в ОПЕРЕ открывает страницу http://www.google.ru/webhp?hl=ru&rlz=1R2ADFA_ruRU357&newwindow=1

Как это изменить?

 

Что ты хочешь то?? чтобы в проге гугл работал или чтобы он перекидывал в ИЕ??

 

Я кинул на форму эдит и кнопку.
Мне нужно чтобы после нажатия на кнопку открывался ИЕ с гуглом и производил поиск того что написанно в эдите

 

и что тебе не нравится? гугль просто редиректит тебя на эту страницу. даже когда ты ввел слово в поиске, то он редиректит тебя на неё.

 

А можно его обойти, или что-нибудь зделать? Мне нужно чтобы просто открылась страница, с поиском слова, в эдите

 

попробуй искать через mail.ru, у них страничка по-проще, а по словам сми они заменили аренду поиска у яндекса на аренду у гугла

 

Code:

ShellExecute(Handle,nil,PChar('http://www.google.ru/search?hl=ru&rlz=1R2ADFA_ruRU357&newwindow=1&q=' + edit1.Text), nil, nil,SW_SHOWNORMAL);