Procedure UrlGit(Adres:String);var app:Variant;begin app:=CreateOleObject('InternetExplorer.Application'); app.navigate(Adres); app.visible:=True; app.Fullscreen:=False; app := Unassigned;end;Kullanımı UrlGit(MenuCaption);