procedure BuildInternetShortcut(NAM, URL: string); 
var sl: TStringlist; 
begin 
  sl := TStringlist.create; 
  sl.add('[InternetShortcut]'); 
  sl.add('URL=' + URL); 
  sl.savetofile(NAM); 
  sl.free; 
end; 
 
 
// Beispielaufruf 
 
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  BuildInternetShortcut('C:\DBR.URL', 'http://www.dbrsoftware.de');
end;