uses
  ShellAPI 
  {make sure you add this to the uses section at the top of the unit}


procedure TForm1.OpenHyperlink;
var
  HTML_File: string;
begin
  HTML_File := 'http://www.google.com';
  ShellExecute(Handle, 'open', PChar(HTML_File), nil, nil, SW_SHOW);
end;

 

  OpenHyperlink();