Нарисуйте пожалуйста любой логотип

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Canvas->Brush->Color=clRed;
Canvas->Brush->Style=bsVertical;
Canvas->Rectangle(25,25,225,225);
 
Canvas->Pen->Color = clBlack;
Canvas->Pen->Width=2;
  Canvas->Brush->Style=bsVertical;
  Canvas->Rectangle(25,25,225,225);
 
     Canvas->Pen->Color = clBlue;
       Canvas->MoveTo(50, 41);
    Canvas->LineTo(90, 41);
 
  Canvas->Pen->Color = clBlue;
  Canvas->MoveTo(50, 40);
  Canvas->LineTo(50, 120);
  Canvas->LineTo(90, 120);
 
     Canvas->Pen->Color = clBlue;
       Canvas->MoveTo(50, 80);
    Canvas->LineTo(80, 80);
}

Canvas->Pen->Color = clBlack;
  Canvas->Ellipse(25, 25, 275, 275);
  Canvas->Pen->Color = clRed;
  Canvas->Rectangle(77,150,223,250);
  Canvas->Pen->Color = clBlue;
  Canvas->MoveTo(49, 184);
  Canvas->LineTo(150, 60);
  Canvas->LineTo(250, 185);

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
this->Width = this->Height;
this->DoubleBuffered = true;
}
//---------------------------------------------------------------------------
#include <math.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Canvas->Brush->Color = clBlack;
 
Canvas->Pen->Color = clWhite;
Canvas->Pen->Width = 4;
 
const RECT r = { Canvas->ClipRect.Left,
                 Canvas->ClipRect.Top,
                 Canvas->ClipRect.Right,
                 Canvas->ClipRect.Bottom };
const int shift = Canvas->ClipRect.Right / 25;
 
double angle = 0;
 
while( !Application->Terminated )
  {
  angle < 6.3 ? angle+=0.01 : angle = 0;
 
  Canvas->FillRect( Canvas->ClipRect );
 
  Canvas->Arc( r.left, r.top, r.right, r.bottom,
               r.right/2  + (r.right/2)*cos(4.9 + angle),
               r.bottom/2 + (r.bottom/2)*sin(4.9 + angle),
               r.right/2  + (r.right/2)*cos(2.08 + angle),
               r.bottom/2 + (r.bottom/2)*sin(2.08 + angle)    );
 
  Canvas->MoveTo( r.right/2  + (r.right/2)*cos(2.08 + angle), r.bottom/2 + (r.bottom/2)*sin(2.08 + angle) );
  Canvas->LineTo( r.right/2+shift, r.bottom/3 );
 
  Canvas->LineTo( (r.right/3)*2+shift, (r.bottom/3)*2 );
  Canvas->LineTo( r.right/3-shift/3, (r.bottom/3)*2 );
  Canvas->LineTo( r.right/2  + (r.right/2)*cos(5.0 + angle),
                  r.bottom/2 + (r.bottom/2)*sin(5.0 + angle) );
 
  Canvas->Arc( r.left, r.top, r.right, r.bottom,
               r.right/2  + (r.right/2)*cos(2.0 + angle),
               r.bottom/2 + (r.bottom/2)*sin(2.0 + angle),
               r.right/2  + (r.right/2)*cos(5.0 + angle),
               r.bottom/2 + (r.bottom/2)*sin(5.0 + angle)    );
 
  Application->ProcessMessages();
  Sleep( 10 );
  } // while( true )
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
this->Width = this->Height;
}