TInitMan = class
    private
     Items:array of TInitProc;
     Count:word;
    public
     procedure Add(Proc:TInitProc);
     procedure Init;
  end;

    InitMan:TInitMan;

procedure TInitMan.Add;
begin
  inc(Count);
  SetLength(Items,Count);
  Items[Count-1] := Proc;
end;

procedure TInitMan.Init;
var i:word;
begin
   if Count > 0 then
    for i := 0 to Count-1 do
     Items[i];
end;

  InitMan := TInitMan.Create;