очень нужно оживить программу...

/---------------------------------------------------------------------------
 
#include <vcl.h>
#include <shdocvw_ocx.h>
#include <inifiles.hpp>
#pragma hdrstop
//---------------------------------------------------------------------------
 
#include "Core.h"
#include "Unit1.h"
#include <string.h>
 
//---------------------------------------------------------------------------
 
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
TCore *Core=new TCore(Form1);
 
//:: TCore ------------------------------------------------------------------
 
__fastcall TCore::TCore(TForm *MainForm)
{
 this->MainForm=MainForm;
 this->Forms=new TForms();
 this->Programm=new TProgramm(MainForm);
}
//---------------------------------------------------------------------------
 
__fastcall TCore::~TCore()
{
 delete this->Forms;
 delete this->Programm;
}
//---------------------------------------------------------------------------
 
AnsiString TCore::GetApplicationPath()
{
 return ExtractFilePath(Application->ExeName);
}
//:: TForms -----------------------------------------------------------------
 
__fastcall TForms::TForms()
{
}
//---------------------------------------------------------------------------
 
void TForms::Position( TForm *Form, float TopPos, float LeftPos)
{
 Form->Left=ceil((float)Screen->Width/(float)100*LeftPos)-ceil((float)Form->ClientWidth/(float)2);
 Form->Top=ceil((float)Screen->Height/(float)100*TopPos)-ceil((float)Form->ClientHeight/(float)2);
}
//---------------------------------------------------------------------------
 
void __fastcall TForms::MoveParentObject(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 
 const int SC_DRAGMOVE = 0xF012;
 ReleaseCapture();
 ((TForm *)Sender)->Parent->Perform( WM_SYSCOMMAND, SC_DRAGMOVE, 0);
}
//---------------------------------------------------------------------------
 
void __fastcall TForms::MoveObject(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 const int SC_DRAGMOVE = 0xF012;
 ReleaseCapture();
 ((TForm*)Sender)->Perform( WM_SYSCOMMAND, SC_DRAGMOVE, 0);
}
//---------------------------------------------------------------------------
 
AnsiString ReValue( AnsiString Section, AnsiString Value )
{
 if (Section == "Grifmin")
 {
  Value=Value=="1"?"Есть":"Нет";
 }
 else
 if (Section == "God")
 {
  Value=Value.SubString(7,10);
 }
 return Value;
}
 
void TForms::FullInfoClear( TRichEdit *RE)
{
 RE->Clear();
}
 
int TForms::FullInfo( AnsiString Title, AnsiString *Field, AnsiString *FName,
                      int Count, int Start, TRichEdit *RE, TQuery *Q)
{
 short count=Count;
 AnsiString Line;
 int LineLength=Start;
 
 RE->Lines->Append(Title);
 RE->SelStart=LineLength;
 RE->SelLength=Title.Length();
 RE->SelAttributes->Style=TFontStyles() << fsBold;
 LineLength+=Title.Length()+2;
 
 for (short i=0; i<count; i++)
 {
  Line=FName[i]+ReValue(Field[i], Q->FieldByName(Field[i])->AsString);
  RE->Lines->Append(Line);
  RE->SelStart=LineLength;
  RE->SelLength=FName[i].Length();
  RE->SelAttributes->Style=TFontStyles() << fsBold;
  LineLength+=Line.Length()+2;
 }
 RE->SelStart=0;
 RE->Lines->Append("");
 return LineLength+2;
}
//---------------------------------------------------------------------------
 
void TForms::ReActiveQuery( TQuery *TmpQ)
{
 int RecNo = TmpQ->RecNo;
 TmpQ->Active = false;
 TmpQ->Active = true;
 if (RecNo>TmpQ->RecordCount)
  RecNo--;
 TmpQ->RecNo = RecNo;
}
//:: TProgramm --------------------------------------------------------------
 
__fastcall TProgramm::TProgramm(TForm *MainForm)
{
 this->MainForm=MainForm;
}
//---------------------------------------------------------------------------
 
void TProgramm::About(AnsiString infoPath)
{
 TIniFile *cfg = new TIniFile(infoPath);
 AnsiString asTitle,
            asDev,
            asVer,
            asDesc;
 
 asTitle = cfg->ReadString("CONFIG","title",asTitle);
 asDev = cfg->ReadString("CONFIG","developer",asDev);
 asVer = cfg->ReadString("CONFIG","version",asVer);
 asDesc = cfg->ReadString("CONFIG","description_file",asDesc);
 
 delete cfg;
 
 AboutForm = new TForm(Application);
 AboutForm->BorderStyle=bsToolWindow;
 AboutForm->ClientWidth=353;
 AboutForm->ClientHeight=309;
 AboutForm->Caption=" О программе";
 Core->Forms->Position(AboutForm,40,50);
 
 TLabel *Title=new TLabel(NULL);
 Title->Parent=AboutForm;
 Title->Left=8;
 Title->Top=8;
 Title->Font->Name="Arial";
 Title->Font->Size=12;
 Title->Font->Style=TFontStyles()<< fsBold;
 Title->Caption=asTitle;
 
 TShape *Line1=new TShape(NULL);
 Line1->Parent=AboutForm;
 Line1->Left=8;
 Line1->Top=32;
 Line1->Width=337;
 Line1->Height=1;
 
 TLabel *LDev=new TLabel(NULL);
 LDev->Parent=AboutForm;
 LDev->Left=8;
 LDev->Top=40;
 LDev->Caption="Разработчик:";
 
 TLabel *Dev=new TLabel(NULL);
 Dev->Parent=AboutForm;
 Dev->Left=80;
 Dev->Top=40;
 Dev->Font->Style=TFontStyles()<< fsBold;
 Dev->Caption=asDev;
 
 TLabel *LVer=new TLabel(NULL);
 LVer->Parent=AboutForm;
 LVer->Left=8;
 LVer->Top=56;
 LVer->Caption="Версия программы:";
 
 TLabel *Ver=new TLabel(NULL);
 Ver->Parent=AboutForm;
 Ver->Left=112;
 Ver->Top=56;
 Ver->Font->Style=TFontStyles()<< fsBold;
 Ver->Caption=asVer;
 
 TShape *Line2=new TShape(NULL);
 Line2->Parent=AboutForm;
 Line2->Left=8;
 Line2->Top=80;
 Line2->Width=337;
 Line2->Height=1;
 
 TShape *AbtBorder=new TShape(AboutForm);
 AbtBorder->Parent=AboutForm;
 AbtBorder->Left=8;
 AbtBorder->Top=88;
 AbtBorder->Width=337;
 AbtBorder->Height=185;
 
 TPanel *AbtPanel=new TPanel(AboutForm);
 AbtPanel->Parent=AboutForm;
 AbtPanel->Ctl3D=false;
 AbtPanel->BevelOuter=bvNone;
 AbtPanel->Left=9;
 AbtPanel->Top=89;
 AbtPanel->Width=335;
 AbtPanel->Height=183;
 
 TCppWebBrowser *Abt=new TCppWebBrowser(AbtPanel);
 AbtPanel->InsertControl(Abt);
 Abt->Left=-2;
 Abt->Top=-2;
 Abt->Width=340;
 Abt->ClientWidth=340;
 Abt->Height=188;
 Abt->ClientHeight=188;
 Abt->Navigate(WideString("file://localhost/"+ExtractFilePath(Application->ExeName)+ExtractFilePath(infoPath)+asDesc));
 
 TSpeedButton *BExit=new TSpeedButton(NULL);
 BExit->Parent=AboutForm;
 BExit->Left=136;
 BExit->Top=280;
 BExit->Width=81;
 BExit->Height=22;
 BExit->Font->Style=TFontStyles()<< fsBold;
 BExit->Caption="Закрыть";
 BExit->Flat=false;
 BExit->OnClick=AboutClose;
 AboutForm->ShowModal();
 
 delete Title;
 delete Line1;
 delete LDev;
 delete Dev;
 delete LVer;
 delete Ver;
 delete Line2;
 delete Abt;
 delete AbtPanel;
 delete AbtBorder;
 delete BExit; 
 delete AboutForm;
}
//---------------------------------------------------------------------------
 
void _fastcall TProgramm::AboutClose(TObject *Sender)
{
 AboutForm->Close();
}//---------------------------------------------------------------------------
 
void TProgramm::CloseQuery( bool &CanClose)
{
 if (MessageBox(Application->Handle,"Завершить работу программы ?","Завершение работы",MB_YESNO | MB_ICONWARNING)==IDYES)
  CanClose=true;
 else
  CanClose=false;
}
//---------------------------------------------------------------------------
 
void TProgramm::Close()
{
 Form1->Close();}