Сделайте аналогичный код в C++ Builder, пожалуйста(с Delphi)

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
 
namespace MyButton
{
    class TButton : public Stdctrls::TButton
    {
    protected:
        DYNAMIC void __fastcall MouseDown(TMouseButton Button, Classes::TShiftState Shift,
                                          int X, int Y)
        {
            if(Button == mbLeft)
            {
                Hide();
                Sleep(1000);
                Show();
            }
        }
    };
};
#define TButton MyButton::TButton
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif