type
someprocedureType = procedure;
somefunctionType = function(a: integer): boolean;
var
someprocedure: someprocedureType;
somefunction: somefunctionType;
procedure LoadAPI(var T);
var
Table : array [0..1] of Pointer absolute T;
begin
someprocedure := someprocedureType(Table[0]);
somefunction := somefunctionType(Table[1]);
end;