You can of course define a procedural type:
  Type TProc = Procedure(S:String;V : Integer);
and build an array of TProc.
       AProc = Array[0..15] of TProc;

Var ProcList : AProc;

Procedure DoSomething(.....);
Begin
...
End;
Procedure AskSomething(....);
....
  ProcList[12] := DoSomething;
  ProcList[15] := AskSomething;
....
  ProcList[12]('Hallo',-5);
  ProcList[15]('found',10000);
Why not?

The trick is to make the procedures "far".

For example:

var
a : array[0..2] of procedure(w:word);

procedure p0(i:word); far;
begin
writeln('p0 i=',i);
end;

procedure p1(j:word); far;
begin
writeln('p1 j=',j);
end;

procedure p2(k:word); far;
begin
writeln('p2 k=',k);
end;

Begin

a[0]:=p0;
a[1]:=p1;
a[2]:=p2;

a[0](3);
a[1](7);
a[2](13);

End.

Good Luck.

In article <7c3ode$iv...@newnews.global.net.uk>,
  "Pjc" <P...@globalnet.co.uk> wrote:

The trick is to make the procedures "far".

For example:

var
a : array[0..2] of procedure(w:word);

procedure p0(i:word); far;
begin
writeln('p0 i=',i);
end;

procedure p1(j:word); far;
begin
writeln('p1 j=',j);
end;

procedure p2(k:word); far;
begin
writeln('p2 k=',k);
end;

Begin

a[0]:=p0;
a[1]:=p1;
a[2]:=p2;

a[0](3);
a[1](7);
a[2](13);

End.

Good Luck.

In article <7c3ode$iv...@newnews.global.net.uk>,
  "Pjc" <P...@globalnet.co.uk> wrote:

     CASE option OF
       1 : doprocedure1;
       2 : doprocedure2;
       etc: doprocedureetc
     END;

[Note -- there is no "etc", I'm just being "generic" here ...]

Type
    TGeneric = Record
        Caption : String;
        CloseProc : Procedure; {or whatever}
        end;

var
        Thing : Array [1..4] of TGeneric;
        Form1 : TForm;

Procedure TForm.SomthingInsideObject;
Begin
Thing[1].Caption := TForm.Caption; {i have a proc called caption that
returns the title}
Thing[1].CloseProc := @TForm.Close;
End;