Ищу готовые интересные проекты по C++ Builder

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->ShowHint = true;
Button1->Hint = "Привет";
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (MessageBox(0,"Вы действительно хотите выйти из программы?","ВНИМАНИЕ!!!", MB_YESNO) == mrYes)
  CanClose=true;
 else CanClose=false;
}

// xAtom
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
Graphics::TBitmap* bitmap = NULL;
 
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    if(! bitmap) {
        bitmap = new Graphics::TBitmap();
        bitmap->LoadFromFile("user.bmp");
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   TSize  size = { 48, 76 }; // отдельный кадр человечка
   static int x = 0;
   static int y = 0;
   TRect cadr = TRect(x*size.cx, y*size.cy, x*size.cx+size.cx, y*size.cy+size.cy);
   TRect rout = TRect(Width/2-size.cx/2, Height/2-size.cy/2, Width/2+size.cx/2, Height/2+size.cy/2);
   if(bitmap) {
        Canvas->CopyRect(rout, bitmap->Canvas, cadr); // выводим кадр
        ++x %= bitmap->Width / size.cx;  // продвигаемся по кадрам по горизонтали
        if(! x) // если окажемся в конце широты битмапа
          ++y %= bitmap->Height / size.cy;   // переходим по вертикали к следующим кадрам
   }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   if(bitmap) {
       delete bitmap;
       bitmap = NULL;
   }
}
//---------------------------------------------------------