Подгрузка библиотеки, основные ошибки и их решения

hLib=LoadLibrary ("inpout32.dll");  // Загружаем DLL в проект
if(hLib==NULL){
                  ShowMessage(AnsiString("Error Load inpout32.dll"));
             }
inp32 = (inpfuncPtr) GetProcAddress(hLib, "Inp32");
out32 = (oupfuncPtr) GetProcAddress(hLib, "Out32");

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <h.h>
#include <stdio.h>
#include "thr.h"
#pragma hdrstop
 
#include "Unit3.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall sp::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
__fastcall sp::sp(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
 
 
void SendByte(unsigned int dta)
{
//ShowMessage(dta);
//Form1->ListBox1->Items->Add((AnsiString)dta);
//cout<<"-- Sending byte "<<(int)dta<<endl<<endl;
 
//???? ?????????? ?????? ?????
for (int i=0;i<8;i++){
 
//????????? ????????
//Delay(1);
 
//????????? ???? SPI_DI ? ???????????? ? ???????????? ?????
port=(((1<<(7-i))&dta)>0)?SPI_DI:0x00;
UpdatePort();
 
//????????? ????????
//Delay(1);
//?????????????? ???? SPI_SCLK (???????????? ??????)
port^=SPI_SCLK;
UpdatePort();
 
//cout<<"."<<endl;
}
//????????? ????????
//Delay(1);
}
 
 
void __fastcall sp::Execute()
{
HMODULE hDLL=LoadLibrary ("inpout32.dll");  // Çàãðóæàåì DLL â ïðîåêò
if(hDLL==NULL){
                  ShowMessage(AnsiString("Error Load inpout32.dll ?? ???????? "));
             }
inp32 = (inpfuncPtr) GetProcAddress(hDLL, "Inp32");
out32 = (oupfuncPtr) GetProcAddress(hDLL, "Out32");
 
SendByte(0x01);
}

void UpdatePort()
{
out32(lpt_data,(short)port);
}

HMODULE hDLL=LoadLibrary ("inpout32.dll");  // Загружаем DLL в проект

inp32 = (inpfuncPtr) GetProcAddress(hDLL, "Inp32");
out32 = (oupfuncPtr) GetProcAddress(hDLL, "Out32");

ShowMessage(AnsiString("Error Load inpout32.dll ?? ???????? "));

#include "stdlib.h"
 
short _stdcall Inp32(short PortAddress);
void _stdcall Out32(short PortAddress, short data);
 
typedef short _stdcall (*inpfuncPtr)(short portaddr);
typedef void _stdcall (*oupfuncPtr)(short portaddr, short datum);
inpfuncPtr inp32;
oupfuncPtr out32;
 
HANDLE hLib;

void __fastcall sp::Execute()
{
 
std::ofstream log("log.txt");
 
HMODULE hDLL=LoadLibrary ("inpout32.dll");  // Загружаем DLL в проект
if(!hDLL)
  log<<"Не удалось загрузить библиотеку inpout32.dll"<<std::endl;                
    
inp32 = (inpfuncPtr) GetProcAddress(hDLL, "Inp32");
out32 = (oupfuncPtr) GetProcAddress(hDLL, "Out32");
 
if(!inp32)
  log<<"Не удалось найти функцию Inp32()"<<std::endl;
 
if(!out32)
  log<<"Не удалось найти функцию Out32()"<<std::endl;
 
log.close();
//...

void UpdatePort(){
out32(lpt_data,(short)port);
}