Delphiでパス名やファイル名からベース名(ファイル名から拡張子を除いた部分)を取得するには、TPath.GetFileNameWithoutExtensionを使用します。
TPath.GetFileNameWithoutExtensionは、ファイル名の拡張子部分を抽出します。
使用するユニット
use System.IOUtils;
使用例
Base := TPath.GetFileNameWithoutExtension('dog.jpg'); //文字列Baseは「dog」
Base := TPath.GetFileNameWithoutExtension('c:\tmp\dog.jpg'); //文字列Baseは「dog」