int main(int argc, char* argv[])
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TWebModule1),  
                                   &WebModule1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Sysutils::ShowException(&exception, 
                                   System::ExceptAddr());
        }
        return 0;
}