[DelphiM0ZG]

Попробуйте так:

Код:

If (ShellExecute(Application.MainForm.Handle, PChar('open'),
    PChar('http://...'),
    Nil, Nil, SW_ShowNormal)<32) Then
      MessageBox(0,
        PChar('Не могу запустить браузер!'),
        PChar('Ошибочка вышла'),
        MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);

У меня работает. У меня стоит Firefox по умолчанию, при повторном нажатии на пункт меню появляется новая закладка (такая же) в браузере.