Повторное открытие окон - ошибка Access Violation

[evg_m]

Далее на базе родительской сделано положим 10 разных каталогов с разными

Да мои догадки верны. Единственно моя телепатия интерпретировала каталог в понятие файловой системы и при моделировании отталкивался от этого (отсюда rootcatalog).
Ну что ж код для разных классов. Оформим все в виде единой процедуры (метода главной формы)
1. в модуле базового класса TBaseCatalogForm объявим новый тип

TBaseCatalogFormclass =class of TBaseCatalogForm;

можно обойтись и без него но с ним часть будущей работы по контролю можно будет передать компилятору (защита от ошибок программиста).
Если 11-я форма не будет основана на TBaseCatalogform Delphi об этом обязательно узнает и предупредит.
2. в Onclose разрешаем удаление

  action:=caFree;

3. теперь пишем наш метод

procedure ShowBaseCatalog(classdialog: TBaseCatalogform);

procedure TMDIMain.ShowBaseCatalog(classdialog: TBaseCatalogform);
var
  f: TBaseCatalogform;
begin
  f:=nil;
  for j:=0 to MDIChildcount-1 do begin
    if mdichildren[j] is classcatalog then begin
      f:=mdichildren[j] as TBaseCatalogform;
      f.bridgtofront;
      break;
    end;
  end;
  if f=nil then
    f:=classcatalog.Create(...);
end;

4. в ваших местах создания дочерних(MDIChildren) пишем вызовы
с указанием конкретного класса (НЕ БАЗОВОГО). Один из

ShowBaseCatalog(TBaseCatalogForm1);

ShowBaseCatalog(TBaseCatalogForm2);

ВСЕ! Никаких переменных fokmo1, fokmo2, ...

Всё довольно просто и имхо в 2011году должно работать стандартными средствами Delphi без замороченных "допилов".

Работает начиная с Delphi5 (как минимум). а скорее D1-D3

[delphicoding]

Преимущество Вашего варианта - нет "лишних" переменных. Минус Вашего варианта - имхо запутанный код с лишними временными переменными и невозможность обращаться к созданным каталогам через строку типа fOkno.fVar:=1. Всё равно спасибо за вариант, но я оставлю свой вариант - на мой взгляд он более очевиден и позволяет сразу при создании окна индивидуально отправлять нужные значения переменных в создаваемое окно.
Есть ли возможность скрывать/показывать MDIChild окно вместо уничтожения/создания?

[evg_m]

на мой взгляд он более очевиден и позволяет сразу при создании окна индивидуально отправлять нужные значения

function ShowCatalog(class: TMDIBASECalaogclass): TMDIBASeCatalog;
begin
....
   result:=MDIchildren[i] as TMDIBaseCatalog;
......
   result:=class.Create( );
.......
end;

fokno1:=ShowCatalog(TMDICatalog1) as TMDICatalog1;

и можно присваивать все что угодно
fokno1 ....:=.........

Есть ли возможность скрывать/показывать MDIChild окно вместо уничтожения/создания?

Методы Hide, show и свойство visible никто у формы не отменял.

[delphicoding]

caHide не пашет... то есть просто OnClose fOkno.Visible:=false и всё ???