Работа с LPT

#include "stdlib.h"
 extern "C"
{
 _stdcall Inp32(short PortAddr);
 _stdcall Out32(short PortAddress, short data);
 }
 
void __fastcall TForm1::LoadClick(TObject *Sender)
{
        AnsiString Name=Edit1->Text;
        FILE*f_param;
        f_param=fopen(Name.c_str(),"rb");
        if (f_param==0){
              ShowMessage(AnsiString("Файла ")+Name+AnsiString(" нет!!!"));
        }
        else{
 
             int i=0, aut_data=0;
             int*array_file;
             array_file=(int*)malloc(1572864);
             if(array_file==NULL){
                     MessageBox(NULL,"Error Memo","Error malloc",MB_OK);
                     exit;
             };
             while (!feof(f_param)){
                array_file[i]=fgetc(f_param);
                i++;
             }
             array_file=(int*)realloc(array_file,i+1);
             if(array_file==NULL){
                     MessageBox(NULL,"Error Memo ","Error realloc",MB_OK);
                     exit;
             };
             fclose(f_param);
 
             HINSTANCE hLib;// указатель на dll
             typedef void (_import * Output(int, int) ); // определяем тип для задания типа указателя :)
             Output *my_out; // Собственно, указатель нужного типа
             typedef short (_import * Input(int) );
             Input *my_in;
 
             hLib=LoadLibrary ("inpout32.dll");  // Грузим длл-ку
             if(hLib==NULL){
                  ShowMessage(AnsiString("Error Load inpout32.dll не работает "));
             }
             else{
                  my_out=(Output*) GetProcAddress (hLib, "Out32"); // указатель на функцию ввода в порт
                  if (!my_out){
                        MessageBox(NULL,"Error Load my_out","Error",MB_OK);
                        FreeLibrary(hLib);
                  }
                  else{
                        my_in=(Input*) GetProcAddress (hLib, "Inp32");   // указатель на функцию вывода из порт
                        if (my_in==NULL){
                             MessageBox(NULL,"Error Load my_in","Error",MB_OK);
                        }
                        else{
                                //сдесь код предачи данных в цикле
                            for(aut_data+=6;aut_data<i;aut_data++){
                               //Sleep(250);
                               Out32(888, array_file[aut_data]);
                            }
                        }
                  }
 
            }
            free(array_file);
        }
 
 
}