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;

Error: Incompatible types: 'TInitMan' and 'Pointer'[/code]
если InitMan это класс то строка 
InitMan := nil;[/code]
никак не могла вызвать такой ошибки.

Error: Undeclared identifier: 'Free'[/code]
У любого класса метод Free встроенный.

Вывод: hiMainForm видит не тот Share который надо. Может быть стоит удались все dcu файлы, или полностью переписать папку code

constructor THIMainForm.Create;
begin
   if Parent<>nil then Parent := Parent.ParentForm;
   inherited Create(Parent);
   ....