Delphiでパス名やファイル名からベース名(ファイル名から拡張子を除いた部分)を取得するには、TPath.G…