//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
USERES("Scan.res");
USEFORM("ScanUnit.cpp", ScanForm);
USELIB("CBACCES.lib");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
       Application->Initialize();
       Application->CreateForm(__classid(TScanForm), &ScanForm);
       Application->Run();
   }
   catch (Exception &exception)
   {
       Application->ShowException(&exception);
   }
   return 0;
}
//---------------------------------------------------------------------------