Экспорт класса из ДЛЛ

[SunKnight]

Ну вообщем нашел в инете такую реализацию:
В общем модуле:

type
  TPlugin = class;
  TPluginClass = class of TPlugin;
  TPluginFunc = function: TPluginClass;

  TPlugin = class(TForm) // или TFrame, или TComponent
  public
    procedure Action1; dynamic; abstract;
    function Status1: Integer; dynamic; abstract;
  end;

В плагине:

type
  TPlugin1 = class(TPlugin)
  public
    procedure Action1; override;
    function Status1: Integer; override;
  end;

function GetPluginClass: TPluginClass;
begin
  Result := TPlugin1;
end;

exports
  GetPluginClass;

В вызывающей программе:

var
  hLib: THandle;
  Func: TPluginFunc;
begin
  hLib := LoadLibrary('Plugin1.dll');
  if hLib <> 0 then
  begin
    Func := TPluginFunc(GetProcAddress(hLib, 'GetPluginClass'));
    if Assigned(Func) then
    begin
      Plugin := Func.Create(nil);  // срабатывает виртуальный конструктор
      Plugin.Action1;
      if Plugin.Status1 <> 0 then
        Plugin.Action1;
      // и т. д.
    end
    else
      // не найдена функция
  end
  else
    // библиотека не найдена
end;

Только чет разобраться немогу, да еще и ошыбки вылетают. Может у кого то есть еще какие идеи или исходники по теме.

[alexBlack]

А что за ошибки ?
С виду все нормально. Должно работать.
--------------------------------------------------------
А вот и пример:

[SunKnight]

Все ошибок нет, простоя я там неправильно кое что сделал