TShortPathEdit

pt 

CreateDialog

pl 

RunDialog