Создание компонента из DLL

[Shad0w64bit]

Здравствуйте. Возник вопрос. Нужно реализовать что то на подобии плагинов. Для этого я опрашиваю все DLL в папке и нужно что бы при выборе определенного плагина он подключался к компоненту на форме.
Delphi 2010, компонент SynEdit.
В демо есть код

...
TSynSampleSyn = class(TSynCustomHighlighter)
...

procedure TForm1.FormCreate(Sender: TObject);
var
  HL: TSynSampleSyn;
begin
  HL := TSynSampleSyn.Create(Self);
  SynEdit1.Highlighter := HL;
end;

У меня в коде формы

var
  Form1: TForm1;
  GetHightlighter: function (Self: TComponent): TSynCustomHighlighter;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  LibHandle: THandle;
begin
  @GetHightlighter := nil;
  LibHandle := LoadLibrary('Sample.dll');
  if LibHandle >= 32 then
  begin
    @GetHightlighter := GetProcAddress(LibHandle,'GetHightlighter');
      if @GetHightlighter <> nil then begin
        SynEdit1.Highlighter:=GetHightlighter(self);
      end;
  end;
  FreeLibrary(LibHandle);
end;

А в коде DLL

function GetHightlighter(Self: TComponent): TSynCustomHighlighter; stdcall;
var
  HL: TSynSampleSyn;
begin
  HL := TSynSampleSyn.Create(Self);
  result:=HL;
end;

exports GetHightlighter;

При отображении в SynEdit выскакивает ошибка
access violation at address.
Я так понимаю что ошибка прав доступа подскажите как исправить?

[Shad0w64bit]

при этом если не освобождать DLL

//FreeLibrary(LibHandle);

то работает но при каждом изменении ругается
access violation at address in module 'sample.dll'

а если освобождать то при каждом изменении
access violation at address in module 'sample.dll'
access violation at address

[Silver_S]

Не указано соглашение о вызове

    GetHightlighter: function (Self: TComponent): TSynCustomHighlighter; stdcall;

Добавлено:
Учитывая, что "работает но при каждом изменении ругается", наверное ошибка не в этом

[Shad0w64bit]

Спасибо большое! без освобождения Dll и с добавленым stdcall; все работает.

Я на это внимание обращал но в примере stdcall не было и там текст с кодом работал.

[evg_m]

смотри похожие темы внизу станицы.