(Часть 2) Я начинающий, подскажите пожалуйста как...

WinExec("Start About.mht",SW_Maximize)

int i = ListBox1->Items->IndexOf(Edit1->Text);
    Edit2->Text = AnsiString(i);

l = (b1 << 24) | (b2 << 16) | (b3 << 8) | b4;

ADOConnection1->ConnectionString = "...";

ADOConnection1->Connected = False;
ADOConnection1->Provider="Microsoft.Jet.OLEDB.4.0";
String PathToDbf=ExcludeTrailingPathDelimiter(ExtractFilePath(Application->ExeName))+"\bd.mdb"
ADOConnection1->ConnectionString="Data Source="+PathToDbf+";Extended Properties=dBASE IV;User ID=;Password=";
ADOConnection1->Connected = True;

PathToDbf =
     ExcludeTrailingPathDelimiter( ExtractFilePath(Application->ExeName) )
          + "[COLOR=Red]\\[/COLOR]bd.mdb"; // читаем внимательно доку по использование
                        // символа "[COLOR=Red]\[/COLOR]" в языках C/C++

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

#include <basepch.h>

#pragma hdrstop

#include "Component1.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TComponent1 *)
{
        new TComponent1(NULL);
}
//---------------------------------------------------------------------------
__fastcall TComponent1::TComponent1(TComponent* Owner)
        : TComponent(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TComponent1::Something(void)
{
MessageBeep(-1);
}
//---------------------------------------------------------------------------
void __fastcall TComponent1::SomethingElse(void)
{
MessageBeep(-1);
}
//------------------------------------------------------------------------------
int __fastcall TMyEditor::GetVerbCount(void)
{
return 2;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TMyEditor::GetVerb(int Index)
{
AnsiString str;
switch(Index)
    {
    case 0: str = "&Something";  break;
    case 1: str = "Something&Else"; break;
    }
return str;
}
void __fastcall TMyEditor::ExecuteVerb(int Index)
{
switch(Index)
    {

   /* case 0:  ((TComponent1*))->Something(); break;
    case 1:  ((TExampleEditor *)Component)->SomethingElse(); break;  */
    }
}
//-------------------------------------------------------------------------
namespace Component1
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TComponent1)};
                 RegisterComponents("Visuall CMP", classes, 0);
                 RegisterComponentEditor(classes[0], __classid(TMyEditor));
        }
}
//---------------------------------------------------------------------------

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

#ifndef Component1H
#define Component1H
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <DesignIntf.hpp>
//---------------------------------------------------------------------------
class PACKAGE TComponent1 : public TComponent
{
private:
protected:
public:
void __fastcall Something(void);
    void __fastcall SomethingElse(void);
        __fastcall TComponent1(TComponent* Owner);
__published:
};
class TMyEditor : public TComponent
{
private:
 void __fastcall ExecuteVerb(int Index);
    AnsiString __fastcall GetVerb(int Index);
    int __fastcall GetVerbCount(void);
};
//---------------------------------------------------------------------------
#endif

#include <designeditors.hpp>