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

#include?
#pragma?hdrstop
//---------------------------------------------------------------------------
USEFORM（“Unit1.cpp“?Form1）;
//---------------------------------------------------------------------------
WINAPI?WinMain（HINSTANCE?HINSTANCE?LPSTR?int）
{
????????try
????????{
?????????????????Application->Initialize（）;
?????????????????Application->CreateForm（__classid（TForm1）?&Form1）;
?????????????????Application->Run（）;
????????}
????????catch?（Exception?&exception）
????????{
?????????????????Application->ShowException（&exception）;
????????}
????????catch?（...）
????????{
?????????????????try
?????????????????{
?????????????????????????throw?Exception（““）;
????????????????