Подскажите в чем беда, пытаюсб из библиотеки вызвать экспортную функцию подключенного приложения (естесственно тоже моего). Пишу так:

В DLL:

...
var
    fD: function:pchar; stdcall;
begin
  fD:=GetProcAddress( GetWindowWord(hwn,GWW_HINSTANCE) ,'GetFromAPP');
  if @fD<>nil then fD else ShowMessage('shit!');
end;
...

В проге так:

...
function GetFromAPP(p:pchar):pchar; stdcall; export;
begin
  ShowMessage('cool!');
end;

exports
  GetFromAPP index 1 name 'GetFromAPP';  
end.

Дак вот все время один SHIT)) Не находит он функцию. HWND правильный, в проге этот код располагаю в тексте проекта, но и в тексте модуля формы (че как раз HWND) тоже пробовал. Не помогает. Подскажите...