Помогите с названиями функций

typedef (TResult __fastcall *pMyFunc) (const TParams &Params); // Объявляем указатель на функцию
const AnsiString cseInvalid_Name = "Неизвестное имя функции (%s).";
const AnsiString cFunc_Names [] = {"Func1", "Func2"}; // Имена функций
const pMyFunc cFunc_Ptrs [] = {Func1, Func2}; // Адреса функций
const int cFunc_Count; // Кол-во функций

TRes __fastcall Call_Functions (const AnsiString Name, const TParams &Params)
{[INDENT]for (int i = cFunc_Count-1; i >= 0; i--) // цикл обработки списка функций[INDENT]if (Name.AnsiCompareIC (cFunc_Names ) == 0) // Сравнение имён функций[INDENT]return cFunc_Ptrs  (Params); // Вызов функции и возвращение результата
[/INDENT][/INDENT]throw Exception (Format (cseInvalid_Name, &TVarRec (Name), 0)); // Сообщение об ошибке
[/INDENT]}

AnsiString f = "KGS"; // то, что меняется
f = "Format_"+f;       // полное имя функции
(функция с именем f) (param);                //вызов самой функции

const AnsiString Func_Names[] = {"Func1, Func2, .... , FunkK};
//....
TRes Func_Selector (const AnsiString Name, int Param1, double Param2, ... TParam ParamN)
{[INDENT]
return (Name.AnsiCompareIC (Func_Names [0]) == 0) ? // Условие 1
     Func1 (Param1, Param2); // Вызов функции 1
: (Name.AnsiCompareIC (Func_Names [1]) == 0) ?  // Условие 2
     Func1 (Param2, Param1); // Вызов функции 2
: (Name.AnsiCompareIC (Func_Names [K]) == 0) ?
    FuncK (ParamN) ; // Вызов функции K
: TRes() ; // Результат "по умолчанию" для неизвестного имени функции
}[/INDENT]