Значит FireFox стоит "браузером по умолчанию".

Исходя из описания функции
> Result = RunProgram(Filename$ [, Parameter$, WorkingDirectory$ [, Flags [, SenderProgram]]])

попробуй так

Prog=RunProgram("chrome.exe","https://mail.ru/","",#PB_Program_Open)