No hay ninguna, sino
ExtractFileName, pero esa te trae tambien la extension.
Puedes construirte una utilizando pos, copy, ExtractFileName y ExtractFilePath para construirte una a tu medida. Algo como:
Código:
var
Archivo : string;
begin
archivo := copy(ExtractFileName(Application.ExeName), 1, pos(ExtractFileExt(Application.Exename), ExtractFileName(Application.ExeName)) - 1);
end;