TShortPathEdit
pl
OnAcceptDirectory
CT Web help
CodeTyphon Studio