Перед кодом



procedure runUrl(url: string);

begin
 if _.browser_mode = 0 then
   shellexecute(0, 'open', pchar(url), nil, nil, SW_SHOW)
 else
 begin
   if ansipos('%1', _.browser_string) > 0 then
     winexec(pchar(stringreplace(_.browser_string, '%1', url, [rfReplaceAll])), SW_SHOW)
   else
     winexec(pchar(_.browser_string + ' "' + url + '"'), SW_SHOW);
 end;
end;




После кода