typedef UINT (CALLBACK* LPFNDLLFUNC1)(INT,INT);
typedef UINT (CALLBACK* LPFNDLLFUNC2)(INT);
HINSTANCE hDLL; // Handle to DLL
LPFNDLLFUNC1 outportb; // Function pointer
LPFNDLLFUNC2 inportb; // Function pointer

hDLL = LoadLibrary("Inpout32");
if (hDLL != NULL)
{
outportb = (LPFNDLLFUNC1)GetProcAddress(hDLL,"Out32");
inportb = (LPFNDLLFUNC2)GetProcAddress(hDLL,"Inp32");
if (!outportb || !inportb)
{
FreeLibrary(hDLL);
MessageDlg("Функции библиотеки inpout32.dll не работают", mtError, TMsgDlgButtons() << mbOK, 0);
Application->Terminate();
return;
}
}
else
{
FreeLibrary(hDLL);
MessageDlg("Не могу загрузить inpout32.dll", mtError, TMsgDlgButtons() << mbOK, 0);
Application->Terminate();
return;
}


юзать так -
A=inportb(LPT+1);
outportb(LPT,A);