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

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