[Alloc]

Скажите, вот допустим есть код:

Код:

procedure TForm1.btn1Click(Sender: TObject);
type
  TLoadSkin = procedure(lpszPath: String; lpszIniFileName: String);
  var
    DLLInstance : THandle;
    LoadSkin : TLoadSkin;
begin
  DLLInstance := LoadLibrary('ISSkin.dll');
  if DLLInstance = 0 then
  begin
     MessageDlg('Невозможно загрузить DLL', mtError, [mbOK], 0);
     Exit;
  end;
  @LoadSkin := GetProcAddress(DLLInstance, 'LoadSkin');
  if @LoadSkin = nil then
     LoadSkin('Skin.cjstyles','')
  else
     MessageDlg('Не найдена искомая процедура.', mtError, [mbOK], 0);
  FreeLibrary(DLLInstance);
end;

выходит сообщение "Не найдена искомая процедура."

пожалуйста подскажите, что не так в коде? Заранее спасибо.