ShellUnit

上のフォルダへ
TestSample ...
ShellUnit.pas(view)----------.pas(download)