Desil, сделай массив ДОСТУПНЫХ форм. При создании меню для кождого итема задай Tag:= [элемент массива]. А при OnClick получай нужную форму как FormArray[(Sender as TMenuItem).Tag]. Так проще, к тому же в этом же массиве можно объявить переменные, отражающие текущее сосотяние формы нет/есть/выполняет_фоновые_операции (на собственном опыте).
У меня вот такой массивчик получился:

type TDLLAccess = record
AType: Integer; // тип доступа
Prm_1: String; // параметр доступа (1)
Prm_2: String; // параметр доступа (2)
Prm_3: String; // параметр доступа (3)
Prm_4: String; // параметр доступа (4)
Prm_5: String; // параметр доступа (5)
Prm_6: String; // параметр доступа (6)
Prm_7: String; // параметр доступа (7)
Prm_8: String; // параметр доступа (8)
end;

type TDLLCmd = record
Cmd: Integer; // команда для модуля
Prm: String; // параметры
end;

type TDLLInfo = record
DLLName: String; // имя файла модуля
DLLCmd: TDLLCmd; // команда
DLLAccess: TDLLAccess; // параметры доступа
Loaded: Boolean; // текущее состояние: загружена
Threaded: Boolean; // текущее состояние: выполняется
MItem: TMenuItem; // пункт меню
DLLh: Integer; // дескриптор DLL
ShowDLLForm : procedure (hW: THandle; OS: TOracleSession;
_AccessType: integer;
_p1, _p2, _p3, _p4,
_p5, _p6, _p7, _p8: PChar;
CBProcAddr: TFarProc;
var LL: boolean; var TT: boolean);
CommandForDLL : procedure (_DLLCmd: integer; var _DLLPrm);
end;

var
DLLInfo: array of TDLLInfo;



Так как у каждого отдельно взятого юзверя модулей немного, то DLL-ки я подключаю при регистрации и не выгружаю их до окончания работы программы. Хотя это и не есть гут :-)