[lmikle]

Да просто очепятка там в коде. Как раз в случае успешного нахождения функции показывается сообщ. об ошибке.
Твой код:

Код:

@LoadSkin := GetProcAddress(DLLInstance, 'LoadSkin');
  if @LoadSkin = nil then
     LoadSkin('Skin.cjstyles','')
  else
     MessageDlg('Не найдена искомая процедура.', mtError, [mbOK], 0);
  FreeLibrary(DLLInstance);

Надо:

Код:

@LoadSkin := GetProcAddress(DLLInstance, 'LoadSkin');
  if @LoadSkin = nil then
     MessageDlg('Не найдена искомая процедура.', mtError, [mbOK], 0)
  else
     LoadSkin('Skin.cjstyles','');
  FreeLibrary(DLLInstance);

PS. Ну или оператор сравнения в if поменять.