uses shellapi; 
 
procedure openEdge(Url: String); 
var 
  p: pchar; 
  s: String; 
begin 
  Getmem(p, max_path); 
  Getwindowsdirectory(p, max_path); 
  s := p; 
  Freemem(p); 
  if copy(s, length(s), 1) <> '\' then 
    s := s + '\'; 
  s := s + 'explorer.exe'; 
  if Shellexecute(Application.Handle, 'open', pchar(s), 
    pchar('microsoft-edge:' + Url), Nil, SW_MAXIMIZE) < 32 then 
    Showmessage(Syserrormessage(Getlasterror)); 
end; 


// Beispielaufruf 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  openEdge('http://www.dbrsoftware.de/delphi'); 
end;