object PanelXP1: TPanelXP
      Left = 32
      Top = 28
      Width = 153
      Height = 125
      HeightMax = 125
      HeightMin = 20
      Slide = True
      Color = clGradientActiveCaption
      TabOrder = 0
      object ButtonImage1: TButtonImage
        Left = 8
        Top = 24
        Width = 137
        Height = 18
        Cursor = crHandPoint
        Caption = 'Button1'
        TabOrder = 0
        Glyph.Data = {...}
        ColorNormal = clNavy
        ColorSelected = clBlue
      end
      object ButtonImage2: TButtonImage
        Left = 8
        Top = 48
        Width = 137
        Height = 18
        Cursor = crHandPoint
        Caption = 'Button2'
        TabOrder = 1
        Glyph.Data = {...}
        ColorNormal = clNavy
        ColorSelected = clBlue
        ButtonFrame = True
      end
    end

//---------------------------------------------------------------------------
void __fastcall TPanelXP::DefineProperties(TFiler *Filer)
{
 Inherited::DefineProperties(Filer);
 Filer->DefineProperty("Items",LoadPanelXPItems,StorePanelXPItems,true);
}
//---------------------------------------------------------------------------
void __fastcall TPanelXP::StorePanelXPItems(TWriter *Writer)
{
// ShowMessage("8");
// Writer->WriteBoolean(MyCompProperty);
// Writer->WriteComponent(this->PanelXP->Name);
    for(int i=0; i<FButtonList->Count && i<1; i++)
    {
        TChildButton *cbtn = Items[i];
        if(cbtn->Owner == Writer->Root) Writer->WriteComponent(cbtn);
    }
// ShowMessage("8_");
}

//---------------------------------------------------------------------------
void __fastcall TPanelXP::LoadPanelXPItems(TReader *Reader)
{
// ShowMessage("7");
// FParentName = Reader->ReadComponent();
// ShowMessage("7_");
    TChildButton *cbtn;// = new TChildButton(this);
    cbtn = (TChildButton *)Reader->ReadComponent(NULL);
    FButtonList->Add(cbtn);
}

  protected
    { Protected declarations }
    procedure Paint; override;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure WndProc(var message : TMessage); override;
    // Таким способом компонент определяет - находится ли курсор мышки на нём или нет
    // Если курсор за пределами кнопки, то она всё равно продолжает принимать сообщения мышки.
    // Так же кнопка будет принимать сообщения, если на родительском окне нет фокуса.

procedure TNewButton.Paint;
var
...
begin
...
end;


// Нажата клавиша мышки на кнопке ?
procedure TNewButton.MouseDown(Button: TMouseButton;
  Shift: TShiftState;X, Y: Integer);
var
  ffMouseDown, ffMouseOver: Boolean;
begin
  ffMouseDown := True;
  ffMouseOver := True;
  if (ffMouseDown <> fMouseDown) or (ffMouseOver <> fMouseOver) then
  begin
    fMouseDown := ffMouseDown;
    fMouseOver := ffMouseOver;
    Invalidate; // не перерисовываем кнопку без необходимости.
  end;
  inherited MouseDown(Button,Shift,X,Y);;
end;

// Отпущена клавиша мышки на кнопке ?
procedure TNewButton.MouseUp(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
var
  ffMouseDown, ffMouseOver : Boolean;
begin
  ffMouseDown := False;
  ffMouseOver := True;
  if (ffMouseDown <> fMouseDown) or (ffMouseOver <> fMouseOver) then
  begin
    fMouseDown := ffMouseDown;
    fMouseOver := ffMouseOver;
    Invalidate; // не перерисовываем кнопку без необходимости.
  end;
  inherited MouseUp(Button,Shift,X,Y);
end;

// Эта процедура перехватывает события мышки, если она даже за пределами кнопки
// Перехватываем оконные сообщения
procedure TNewButton.WndProc(var message : TMessage);
var
  P1,P2 : TPoint;
  Bo : Boolean;
begin
  if Parent <> nil then
  begin
    GetCursorPos(P1); // Получаем координаты курсона на экране
    P2 := Self.ScreenToClient(P1); // Преобразуем их в координаты относительно кнопки
    if (P2.X > 0) and (P2.X < Width) and (P2.Y > 0) and (P2.Y < Height) then
      Bo := True // Курсор мышки в области кнопки
    else
      Bo := False; // Курсор мышки за пределами кнопки

    if Bo <> fMouseOver then // не перерисовываем кнопку без необходимости.
    begin
      fMouseOver := Bo;
      Invalidate;
    end;
  end;
  inherited WndProc(message); // отправляем сообщение остальным получателям
end;

var
X3,y3,min3,max3,yplas : integer;

begin
x3:=strtoint(edit35.Text);
y3:=strtoint(edit36.Text);
{if x>y}
if x3>y3 then
begin
checkbox7.Checked:=true;
x3:=strtoint(edit35.Text);
yplas:=(y3+5);

if x3>yplas then
begin
edit37.Text:=inttostr(x3);
end;
if x3<yplas then
begin
edit37.Text:=inttostr(yplas);
end;
end;
{if x <= y}

if  x<=y then
begin
checkbox8.Checked:=true;
x3:=strtoint(edit35.Text);
y3:=strtoint(edit36.Text);
min3:=(x3+1);
max3:=(y3+3);
if max3>min3 then
begin
edit38.Text:=inttostr(min3);
end;
if max3<min3 then
begin
edit38.Text:=inttostr(max3);
end;
end;
end;
end.

class TButtonItem : public TCollectionItem, public TButton