Взято из FAQ: http://blackman.km.ru/myfaq/cont4.phtml

Переменная в качестве имени процедуры

Каким образом можно использовать переменную типа String в качестве имени процедуры?
Если все процедуры, которые вы собираетесь вызывать, имеют список с
одними и теми же параметрами (или все без параметров), то это не трудно.
Для этого необходимы: процедурный тип, соответствующий вашей процедуре, например: type
 TMacroProc = procedure(param: Integer); массив, сопоставляющий имена процедур их адресам во время выполнения приложения: type
 TMacroName = string[32];
 TMacroLink = record
   name: TMacroName;
   proc: TMacroProc;
 end;
 TMacroList = array [1..MaxMacroIndex] of TMacroLink; const
 Macros: TMacroList = (
      (name: 'Proc1'; proc: Proc1),
      (name: 'Proc2'; proc: Proc2),
       ...
    ); интерпретатор функций, типа: procedure CallMacro(name: String; param: Integer);
var
 i: Integer;
begin
 for i := 1 to MaxMacroIndex do
   if CompareText(name, Macros[i].name) = 0 then begin
     Macros[i].proc(param);
     break;
   end;
end; Макропроцедуры необходимо объявить в секции Interface модуля или с ключевым словом Far, например: procedure Proc1(n: Integer); far;
begin
 ...
end; procedure Proc2(n: Integer); far;
begin
 ...
end; [News Group]