Как вызвать экспорт класса из BPL?

unit SetMethods;
 
interface
 
uses
 Windows, Forms, Classes, SysUtils, Dialogs;
 
type
 {$MethodInfo ON}
  TWorkForm = class(TForm)
  published
    procedure MyClick;
  end;
 {$MethodInfo OFF}
 
// Exports MyClick; ???
 
implementation
 
procedure TWorkForm.MyClick;
begin
 ShowMessage('Событие из библиотеки.');
end;
 
initialization
  RegisterClass(TWorkForm);
 
end.

var
 H_BPL: THandle;
begin
 H_BPL:= LoadPackage(GLOBAL_PATH+'\BPL\Methods.bpl');
 if H_BPL = 0 then
  begin
   ShowMessage('Ошибка при загрузке пакетной библиотеки "Methods.bpl"');
   Exit;
  end;      
 P^.Event_.Code:= GetProcAddress(H_BPL, 'MyClick');
 if P^.Event_.Code = nil then
  begin
   ShowMessage('Метод отсутствует');
   UnloadPackage(H_BPL);
   Exit;
  end;
 P^.Event_.Data:= P^.Komp_;
 SetMethodProp(P^.Komp_, P^.Prop_, P^.Event_);
end;

var
 K: TComponentClass;
begin
 if FindClass('TWorkForm') <> nil then // или Assigned(FindClass('TWorkForm'))
  begin
   K:= TComponentClass(FindClass('TWorkForm'));
   //
   P^.Event_.Code:= K.MethodAddress('MyClick');
   P^.Event_.Data:= P^.Komp_;
   SetMethodProp(P^.Komp_, P^.Prop_, P^.Event_);
  end
 else
  begin
   ShowMessage('Класс "TWorkForm" не найден.');
  end;
end;