Error: Procedure directive "STDCALL" has conflicts

[Sphinx]

имеется следующий код (участок на котором конфликт):

Код: Выделить всё

implementation

{$IFNDEF DYNAMIC_LOAD}
  function _CreateInterface: Pointer; external LibName name 'CreateInterface'; stdcall;
{$ELSE}
type
  TCreateInterface = function: Pointer; stdcall;

var
  hMGraph : HMODULE;

procedure UnLoadLib;
begin
  if hMGraph <> 0 then
    FreeLibrary(hMGraph);
end;
{$ENDIF}

при компиляции все падает с ошибкой:

Error: Procedure directive "STDCALL" has conflicts with other directives

При этом в interface секции тоже полно функций с stdcall; но там все отлично. Кто-нибудь сталкивался с подобным ?
Уже всю голову сломал

[Sergei I. Gorelkin]

А какой из вариантов не компилируется (с DYNAMIC_LOAD или без, или оба)?

[shade]

Код: Выделить всё

function _CreateInterface: Pointer; stdcall; external LibName name 'CreateInterface'; 

[Sphinx]

Sergei I. Gorelkin без, т.е. при статической линковке с библиотекой.

shade Ну блиииин.....я тут полдня голову ломаю, а решение такое простое (((
Спасибо большое.