Не компилируется программа при попытке вызова функции из Unit1 в Unit2

//---------------------------------------------------------------------------
 
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
//#pragma package(smart_init)
//******************************************************************************
// Модуль E14-140.
// Консольная программа с организацией потокового ввода данных с АЦП
// с одновременной записью получаемых данных на диск в реальном масштабе времени.
// Ввод осуществляется с первых четырёх каналов АЦП на частоте 100 кГц.
//******************************************************************************
#include <stdio.h>
#include <conio.h>
#include "Lusbapi.h"
 
// аварийный выход из программы
void AbortProgram(char *ErrorString, bool AbortionFlag = true);
// функция потока ввода данных с АЦП
DWORD WINAPI ServiceReadThread(PVOID /*Context*/);
// функция вывода сообщений с ошибками
void ShowThreadErrorMessage(void);
 
// идентификатор файла
HANDLE hFile;
 
// идентификатор потока сбора данных
HANDLE hReadThread;
DWORD ReadTid;
const WORD ChanAmnt = 04;
// версия библиотеки
DWORD DllVersion;
// указатель на интерфейс модуля
ILE140 *pModule;
// дескриптор устройства
HANDLE ModuleHandle;
// название модуля
char ModuleName[7];
// скорость работы шины USB
BYTE UsbSpeed;
// структура с полной информацией о модуле
MODULE_DESCRIPTION_E140 ModuleDescription;
    // структура параметров работы АЦП модуля
ADC_PARS_E140 ap;
 
// кол-во получаемых отсчетов (кратное 32) для Ф. ReadData()
DWORD DataStep = 32*500;
// будем собирать NDataBlock блоков по DataStep отсчётов в каждом
const WORD NDataBlock = 80;
// буфер данных
SHORT *ReadBuffer;
 
// флажок завершения работы потока сбора данных
bool IsReadThreadComplete;
// номер ошибки при выполнении сбора данных
WORD ReadThreadErrorNumber;
 
// экранный счетчик-индикатор
DWORD Counter = 0x0, OldCounter = 0xFFFFFFFF;
 
//------------------------------------------------------------------------
// основная программа
//------------------------------------------------------------------------
void ReadADC(void)
{
    WORD i;
//  WORD DacSample;
 
    // сбросим флажок завершения потока ввода данных
    IsReadThreadComplete = false;
    // пока ничего не выделено под буфер данных
    ReadBuffer = NULL;
    // пока не создан поток ввода данных
    hReadThread = NULL;
    // пока откытого файла нет :(
    hFile = INVALID_HANDLE_VALUE;
    // сбросим флаг ошибок потока ввода данных
    ReadThreadErrorNumber = 0x0;
 
    // зачистим экран монитора
    clrscr();
 
 
    // проверим версию используемой библиотеки Lusbapi.dll
    if((DllVersion = GetDllVersion()) != CURRENT_VERSION_LUSBAPI)
    {
        char String[128];
        sprintf(String, " Lusbapi.dll Version Error!!!\n   Current: %1u.%1u. Required: %1u.%1u",
                                            DllVersion >> 0x10, DllVersion & 0xFFFF,
                                            CURRENT_VERSION_LUSBAPI >> 0x10, CURRENT_VERSION_LUSBAPI & 0xFFFF);
 
        AbortProgram(String);
    }
    else printf(" Lusbapi.dll Version --> OK\n");
 
    // попробуем получить указатель на интерфейс
    pModule = static_cast<ILE140 *>(CreateLInstance("e140"));
    if(!pModule) AbortProgram(" Module Interface --> Bad\n");
    else printf(" Module Interface --> OK\n");
 
    // попробуем обнаружить модуль E14-140 в первых MAX_VIRTUAL_SLOTS_QUANTITY_LUSBAPI виртуальных слотах
    for(i = 0x0; i < MAX_VIRTUAL_SLOTS_QUANTITY_LUSBAPI; i++) if(pModule->OpenLDevice(i)) break;
    // что-нибудь обнаружили?
    if(i == MAX_VIRTUAL_SLOTS_QUANTITY_LUSBAPI) AbortProgram(" Can't find any module E14-140 in first 127 virtual slots!\n");
    else printf(" OpenLDevice(%u) --> OK\n", i);
 
    // попробуем прочитать дескриптор устройства
    ModuleHandle = pModule->GetModuleHandle();
    if(ModuleHandle == INVALID_HANDLE_VALUE) AbortProgram(" GetModuleHandle() --> Bad\n");
    else printf(" GetModuleHandle() --> OK\n");
 
    // прочитаем название модуля в обнаруженном виртуальном слоте
    if(!pModule->GetModuleName(ModuleName)) AbortProgram(" GetModuleName() --> Bad\n");
    else printf(" GetModuleName() --> OK\n");
    // проверим, что это 'E14-140'
    if(strcmp(ModuleName, "E140")) AbortProgram(" The module is not 'E14-140'\n");
    else printf(" The module is 'E14-140'\n");
 
    // попробуем получить скорость работы шины USB
    if(!pModule->GetUsbSpeed(&UsbSpeed)) AbortProgram(" GetUsbSpeed() --> Bad\n");
    else printf(" GetUsbSpeed() --> OK\n");
    // теперь отобразим скорость работы шины USB
    printf("   USB is in %s\n", UsbSpeed ? "High-Speed Mode (480 Mbit/s)" : "Full-Speed Mode (12 Mbit/s)");
 
    // получим информацию из ППЗУ модуля
    if(!pModule->GET_MODULE_DESCRIPTION(&ModuleDescription)) AbortProgram(" GET_MODULE_DESCRIPTION() --> Bad\n");
    else printf(" GET_MODULE_DESCRIPTION() --> OK\n");
 
    // проверим прошивку MCU модуля
    if((ModuleDescription.Module.Revision == REVISIONS_E140[REVISION_B_E140]) &&
        (strtod((char *)ModuleDescription.Mcu.Version.Version, NULL) < 3.05)) AbortProgram(" For module E14-140(Rev.'B') firmware version must be 3.5 or above --> !!! ERROR !!!\n");
 
    // получим текущие параметры работы АЦП
    if(!pModule->GET_ADC_PARS(&ap)) AbortProgram(" GET_ADC_PARS() --> Bad\n");
    else printf(" GET_ADC_PARS() --> OK\n");
    // установим желаемые параметры работы АЦП
    ap.ClkSource = INT_ADC_CLOCK_E140;                          // внутренний запуск АЦП
    ap.EnableClkOutput = ADC_CLOCK_TRANS_DISABLED_E140;     // без трансляции тактовых импульсо АЦП
    ap.InputMode = NO_SYNC_E140;                // без синхронизации ввода данных
    ap.ChannelsQuantity = 0x4;                  // четыре активных канала
    // формируем управляющую таблицу
    for(i = 0x0; i < ap.ChannelsQuantity; i++)
        ap.ControlTable[i] = (WORD)(i | (ADC_INPUT_RANGE_2500mV_E140 << 0x6));
    ap.AdcRate = 100.0;                         // частота работы АЦП в кГц
    ap.InterKadrDelay = 0.0;                    // межкадровая задержка в мс
    // передадим требуемые параметры работы АЦП в модуль
    if(!pModule->SET_ADC_PARS(&ap)) AbortProgram(" SET_ADC_PARS() --> Bad\n");
    else printf(" SET_ADC_PARS() --> OK\n");
 
    // выделим память под буфер
    ReadBuffer = new SHORT[2*DataStep];
    if(!ReadBuffer) AbortProgram(" Can not allocate memory\n");
 
 
 
    // Создаём и запускаем поток сбора данных
    printf(" \n");
    hReadThread = CreateThread(0, 0x2000, ServiceReadThread, 0, 0, &ReadTid);
    if(!hReadThread) AbortProgram(" ServiceReadThread() --> Bad\n");
    else printf(" ServiceReadThread() --> OK\n");
 
    // отобразим параметры сбора данных модуля на экране монитора
    printf(" \n");
    printf(" Module E14-140 (S/N %s) is ready ... \n", ModuleDescription.Module.SerialNumber);
    printf("   Module Info:\n");
    printf("     Module  Revision   is '%c'\n", ModuleDescription.Module.Revision);
    printf("     MCU Driver Version is %s (%s)\n", ModuleDescription.Mcu.Version.Version, ModuleDescription.Mcu.Version.Date);
    printf("   Adc parameters:\n");
    printf("     ChannelsQuantity = %2d\n", ap.ChannelsQuantity);
    printf("     AdcRate = %8.3f kHz\n", ap.AdcRate);
    printf("     InterKadrDelay = %2.4f ms\n", ap.InterKadrDelay);
    printf("     KadrRate = %8.3f kHz\n", ap.KadrRate);
 
    // цикл записи получаемых данных и ожидания окончания работы приложения
//  DacSample = 0x1000;
    printf("\n Press any key if you want to terminate this program...\n\n");
    while(!IsReadThreadComplete)
    {
        if(OldCounter != Counter) { printf(" Counter %3u from %3u\r", Counter, NDataBlock); OldCounter = Counter; }
        else Sleep(20);
//      if(!pModule->ENABLE_TTL_OUT(TRUE)) AbortProgram(" Ошибка разрешения выходных цифровых линий");
//      if(!pModule->TTL_OUT(0xFFFF)) AbortProgram(" Ошибка установки выходных цифровых линий");
//      if(!pModule->TTL_OUT(0x0000)) AbortProgram(" Ошибка установки выходных цифровых линий");
//      if(!pModule->DAC_SAMPLE((SHORT *)&DacSample, 0x0)) AbortProgram(" Ошибка установки канала ЦАП");
    }
 
    // ждём окончания работы потока ввода данных
    WaitForSingleObject(hReadThread, INFINITE);
 
    // проверим была ли ошибка выполнения потока сбора данных
    printf("\n\n");
    if(ReadThreadErrorNumber) { AbortProgram(NULL, false); ShowThreadErrorMessage(); }
    else AbortProgram(" The program was completed successfully!!!\n", false);
}
 
//------------------------------------------------------------------------
// Поток, в котором осуществляется сбор данных
//------------------------------------------------------------------------
DWORD WINAPI ServiceReadThread(PVOID /*Context*/)
{
    WORD i;
    WORD RequestNumber;
    DWORD FileBytesWritten;
    // массив OVERLAPPED структур из двух элементов
    OVERLAPPED ReadOv[2];
    // массив структур с параметрами запроса на ввод/вывод данных
    IO_REQUEST_LUSBAPI IoReq[2];
 
    // остановим работу АЦП и одновременно сбросим USB-канал чтения данных
    if(!pModule->STOP_ADC()) { ReadThreadErrorNumber = 0x1; IsReadThreadComplete = true; return 0x0; }
 
    // формируем необходимые для сбора данных структуры
    for(i = 0x0; i < 0x2; i++)
    {
        // инициализация структуры типа OVERLAPPED
        ZeroMemory(&ReadOv[i], sizeof(OVERLAPPED));
        // создаём событие для асинхронного запроса
        ReadOv[i].hEvent = CreateEvent(NULL, FALSE , FALSE, NULL);
        // формируем структуру IoReq
        IoReq[i].Buffer = ReadBuffer + i*DataStep;
        IoReq[i].NumberOfWordsToPass = DataStep;
        IoReq[i].NumberOfWordsPassed = 0x0;
        IoReq[i].Overlapped = &ReadOv[i];
        IoReq[i].TimeOut = DataStep/ap.AdcRate + 1000;
    }
 
    // делаем предварительный запрос на ввод данных
    RequestNumber = 0x0;
    if(!pModule->ReadData(&IoReq[RequestNumber])) { CloseHandle(ReadOv[0].hEvent); CloseHandle(ReadOv[1].hEvent); ReadThreadErrorNumber = 0x2; IsReadThreadComplete = true; return 0x0; }
 
    // запустим АЦП
    if(pModule->START_ADC())
    {
        // цикл сбора данных
        for(i = 0x1; i < NDataBlock; i++)
        {
            // сделаем запрос на очередную порцию данных
            RequestNumber ^= 0x1;
            if(!pModule->ReadData(&IoReq[RequestNumber])) { ReadThreadErrorNumber = 0x2; break; }
            if(ReadThreadErrorNumber) break;
 
            // ждём завершения операции сбора предыдущей порции данных
            if(WaitForSingleObject(ReadOv[RequestNumber^0x1].hEvent, IoReq[RequestNumber^0x1].TimeOut) == WAIT_TIMEOUT) { ReadThreadErrorNumber = 0x3; break; }
            if(ReadThreadErrorNumber) break;
 
            // запишем полученную порцию данных в файл
            if(!WriteFile(  hFile,                                                  // handle to file to write to
                                IoReq[RequestNumber^0x1].Buffer,                    // pointer to data to write to file
                                2*DataStep,                                             // number of bytes to write
                                &FileBytesWritten,                                  // pointer to number of bytes written
                            NULL                                                        // pointer to structure needed for overlapped I/O
                               )) { ReadThreadErrorNumber = 0x4; break; }
 
            if(ReadThreadErrorNumber) break;
            else if(kbhit()) { ReadThreadErrorNumber = 0x5; break; }
            else Sleep(20);
            Counter++;
        }
 
        // последняя порция данных
        if(!ReadThreadErrorNumber)
        {
            RequestNumber ^= 0x1;
            // ждём окончания операции сбора последней порции данных
            if(WaitForSingleObject(ReadOv[RequestNumber^0x1].hEvent, IoReq[RequestNumber^0x1].TimeOut) == WAIT_TIMEOUT) ReadThreadErrorNumber = 0x3;
            // запишем последнюю порцию данных в файл
            if(!WriteFile(  hFile,                                                  // handle to file to write to
                                IoReq[RequestNumber^0x1].Buffer,                    // pointer to data to write to file
                                2*DataStep,                                             // number of bytes to write
                                &FileBytesWritten,                                  // pointer to number of bytes written
                            NULL                                                        // pointer to structure needed for overlapped I/O
                               )) ReadThreadErrorNumber = 0x4;
            Counter++;
        }
    }
    else { ReadThreadErrorNumber = 0x6; }
 
    // остановим работу АЦП
    if(!pModule->STOP_ADC()) ReadThreadErrorNumber = 0x1;
    // прервём возможно незавершённый асинхронный запрос на приём данных
    if(!CancelIo(ModuleHandle)) { ReadThreadErrorNumber = 0x7; }
    // освободим все идентификаторы событий
    for(i = 0x0; i < 0x2; i++) CloseHandle(ReadOv[i].hEvent);
    // небольшая задержка
    Sleep(100);
    // установим флажок завершения работы потока сбора данных
    IsReadThreadComplete = true;
    // теперь можно спокойно выходить из потока
    return 0x0;
}
 
//------------------------------------------------------------------------
// Отобразим сообщение с ошибкой
//------------------------------------------------------------------------
void ShowThreadErrorMessage(void)
{
    switch(ReadThreadErrorNumber)
    {
        case 0x1:
            printf(" ADC Thread: STOP_ADC() --> Bad\n");
            break;
 
        case 0x2:
            printf(" ADC Thread: ReadData() --> Bad\n");
            break;
 
        case 0x3:
            printf(" ADC Thread: Timeout is occured!\n");
            break;
 
        case 0x4:
            printf(" ADC Thread: Writing data file error!\n");
            break;
 
        case 0x5:
            // если программа была злобно прервана, предъявим ноту протеста
            printf(" ADC Thread: The program was terminated!\n");
            break;
 
        case 0x6:
            printf(" ADC Thread: START_ADC() --> Bad\n");
            break;
 
        case 0x7:
            printf(" ADC Thread: Can't cancel ending input and output (I/O) operations!\n");
            break;
 
        default:
            printf(" Unknown error!\n");
            break;
    }
 
    return;
}

 #include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit5.h"
#include "Unit3.h"
#include "Unit2.h"
 
#include "Lusbapi.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
 
// указатель на интерфейс модуля
extern ILE140 *pModule;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button3Click(TObject *Sender)
{
    Form5->Close();
}
//---------------------------------------------------------------------------
 
 
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm5::Button1Click(TObject *Sender)
{
 Memo1->Text="***";
 ReadADC();
}
//---------------------------------------------------------------------------

void ReadADC(void);

Thread Start: Thread ID: 7084. Process Project1.exe (4280)
Process Start: G:\akron\lazer\.\Win32\Debug\Project1.exe. Base Address: $00400000. Process Project1.exe (4280)
Module Load: Project1.exe. Has Debug Info. Base Address: $00400000. Process Project1.exe (4280)
Module Load: ntdll.dll. No Debug Info. Base Address: $77380000. Process Project1.exe (4280)
Module Load: KERNEL32.dll. No Debug Info. Base Address: $75F80000. Process Project1.exe (4280)
Module Load: KERNELBASE.dll. No Debug Info. Base Address: $76B50000. Process Project1.exe (4280)
Module Load: rtl190.bpl. No Debug Info. Base Address: $50050000. Process Project1.exe (4280)
Module Load: OLEAUT32.dll. No Debug Info. Base Address: $76BA0000. Process Project1.exe (4280)
Module Load: ole32.dll. No Debug Info. Base Address: $76E20000. Process Project1.exe (4280)
Module Load: msvcrt.dll. No Debug Info. Base Address: $75D20000. Process Project1.exe (4280)
Module Load: GDI32.dll. No Debug Info. Base Address: $75C20000. Process Project1.exe (4280)
Module Load: USER32.dll. No Debug Info. Base Address: $75E20000. Process Project1.exe (4280)
Module Load: ADVAPI32.dll. No Debug Info. Base Address: $763D0000. Process Project1.exe (4280)
Module Load: SECHOST.dll. No Debug Info. Base Address: $76C30000. Process Project1.exe (4280)
Module Load: RPCRT4.dll. No Debug Info. Base Address: $767C0000. Process Project1.exe (4280)
Module Load: SspiCli.dll. No Debug Info. Base Address: $74EE0000. Process Project1.exe (4280)
Module Load: CRYPTBASE.dll. No Debug Info. Base Address: $74ED0000. Process Project1.exe (4280)
Module Load: LPK.dll. No Debug Info. Base Address: $75CB0000. Process Project1.exe (4280)
Module Load: USP10.dll. No Debug Info. Base Address: $76660000. Process Project1.exe (4280)
Module Load: VERSION.dll. No Debug Info. Base Address: $6FE20000. Process Project1.exe (4280)
Module Load: MPR.dll. No Debug Info. Base Address: $72FC0000. Process Project1.exe (4280)
Module Load: imagehlp.dll. No Debug Info. Base Address: $76790000. Process Project1.exe (4280)
Module Load: SHFOLDER.dll. No Debug Info. Base Address: $6A6C0000. Process Project1.exe (4280)
Module Load: SHELL32.dll. No Debug Info. Base Address: $74F40000. Process Project1.exe (4280)
Module Load: SHLWAPI.dll. No Debug Info. Base Address: $75CC0000. Process Project1.exe (4280)
Module Load: WSOCK32.dll. No Debug Info. Base Address: $70150000. Process Project1.exe (4280)
Module Load: WS2_32.dll. No Debug Info. Base Address: $75DD0000. Process Project1.exe (4280)
Module Load: NSI.dll. No Debug Info. Base Address: $75E10000. Process Project1.exe (4280)
Module Load: OLEACC.dll. No Debug Info. Base Address: $73290000. Process Project1.exe (4280)
Module Load: vcl190.bpl. No Debug Info. Base Address: $50430000. Process Project1.exe (4280)
Module Load: COMCTL32.dll. No Debug Info. Base Address: $6F980000. Process Project1.exe (4280)
Module Load: COMDLG32.dll. No Debug Info. Base Address: $76340000. Process Project1.exe (4280)
Module Load: WINSPOOL.DRV. No Debug Info. Base Address: $732D0000. Process Project1.exe (4280)
Module Load: oledlg.dll. No Debug Info. Base Address: $74830000. Process Project1.exe (4280)
Module Load: Intraweb_140_190.bpl. No Debug Info. Base Address: $006A0000. Process Project1.exe (4280)
Module Load: inet190.bpl. No Debug Info. Base Address: $50D20000. Process Project1.exe (4280)
Module Load: vclimg190.bpl. No Debug Info. Base Address: $00230000. Process Project1.exe (4280)
Module Load: WINMM.dll. No Debug Info. Base Address: $730C0000. Process Project1.exe (4280)
Module Load: dbrtl190.bpl. No Debug Info. Base Address: $50A60000. Process Project1.exe (4280)
Module Load: borlndmm.dll. No Debug Info. Base Address: $50030000. Process Project1.exe (4280)

//---------------------------------------------------------------------------
 
#ifndef Unit2H
#define Unit2H
void main(void);
//---------------------------------------------------------------------------
#endif