[Glob]

А так заработает?

Код:

if dlgOpen1.Execute then SProg:=OpenDialog1.FileName;