Вызов функции из dll-ки

[VVVadim]

Привет всем!!! У меня такая беда: вызываю функцию из dll-ки статически - все работает, а динамически - нифига , вот сорц, плиз пажити.

[Баламут]

type
  TMyFunc = procedure(wnd: HWND; path: PChar); stdcall;
........................
procedure TForm1.Button1Click(Sender: TObject);
var
 DLLInstance: THandle;
 MyFunc: TMyFunc;
// procedure (wnd: HWND; path: PChar);
begin
 DLLInstance := LoadLibrary(PChar('zzz.dll'));
  if (DLLInstance <> 0) then
  try
    @MyFunc := GetProcAddress(DLLInstance, 'AFV_OpenFile');
    if Assigned(@MyFunc) then
    MyFunc(form1.Handle, 'qwerty.123');
  finally
   FreeLibrary(DLLInstance);
  end;
end;

[VVVadim]

все бачит, пасиба!!!