Запретить повторную загрузку BPL с фреймом

[artemavd]

Всех приветствую!
Кое веки решил создать тему, т.к. нужна помощь, не могу сообразить.
В общем, задача простая: нужно загрузить BPL с фреймом без закрытия основной программы, путем нажатия на одну кнопку.
Это я сделал уже.
Вот мой код:

  public
    Frame : TFrame;
    hm:Hmodule;
    { Public declarations }

...

procedure TMainForm.Button1Click(Sender: TObject);
var
  FrC : TFrameClass;
begin
  //1. Загружаю модуль
  hm := LoadPackage(Label1.Caption + 'Package1.bpl');
  //2. Если загрузка модуля прошла успешно
  if hm <> 0 then
  begin
    //3. Ищу класс моего фрейма
    if FindClass('TFrameTest') <> nil then
    begin
      FrC := TFrameClass(FindClass('TFrameTest'));
      //5. Если класс моего фрейма успешно найден
      if FrC <> nil then
      begin
        //6. Загружаю класс моего найденного фрейма
        frame := FrC.Create(self);
        frame.Align := alClient;
        frame.Parent := TabSheet1;
      end;
    end;
  end;
end;

Вопрос простой: как вывести сообщение, если BPL пакет уже загружен?
Просто сообщение, что-то вроде "Пакет уже загружен" и чтобы не срабатывало повторно попытка загрузки пакета.

[evg_m]

if hm<>nil then begin ShowMessage('уже!!!'); Exit; end;

initialization
   hm:=nil; //на всякий случай начальная инициализация

[artemavd]

Сообщение от evg_m

if hm<>nil then begin ShowMessage('уже!!!'); Exit; end;

Так не могу написать:

procedure TMainForm.Button1Click(Sender: TObject);
var
  FrC : TFrameClass;
begin
  //1. Загружаю модуль
  hm := LoadPackage(Label1.Caption + 'Package1.bpl');
  //2. Если загрузка модуля прошла успешно
  if hm <> nil then
  begin
    //3. Ищу класс моего фрейма
    if FindClass('TFrameTest') <> nil then
    begin
      FrC := TFrameClass(FindClass('TFrameTest'));
      //5. Если класс моего фрейма успешно найден
      if FrC <> nil then
      begin
        //6. Загружаю класс моего найденного фрейма
        frame := FrC.Create(self);
        frame.Align := alClient;
        frame.Parent := TabSheet1;
      end;
    end;
  end
  else
  begin
    ShowMessage('уже!!!'); 
    Exit;
  end;
end;

Выдается ошибка:
[dcc32 Error] Main.pas(88): E2015 Operator not applicable to this operand type

[evg_m]

hm<>nil0
hm :=0

[artemavd]

Сообщение от evg_m

hm<>nil0
hm :=0

Это не помогло.
Все равно не срабатывает проверка. Даже если написать как ты предложил.