Написать процедуру на Delphi

Для программы на Delphi нужно написать следующую процедуру:

procedure search_brouser (var s1, s2, s3, s4 : String);

Она должна автоматически НАЙТИ на компьютере, где находятся

файлы броузеров:

s1 => Microsoft Internet Explorer

s2 => Firefox

s3 => Google Chrome

s4 => Opera

В строках s1,s2,s3,s4 должны быть найденные адреса броузеров, например:

s1 := 'C:\Program Files\Internet Explorer\iexplore.exe';

s2 := 'C:\Program Files\Mozilla Firefox\firefox.exe';

Если какого-то броузера на компе нет, пишем s3 := 'not';

Пишите свои предложения, цены и сроки.

Оплата по вебмани.