Вывод текста в нужном месте

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
const int Step = 10;
int Begin = 0;
int A[8] = {0x0000FF, 0x0080FF, 0x0DFFFF, 0x00EC00, 0xFFFF09, 0xFF0404, 0xFF0F87, 0xFFFFFF};
TShape *S;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  this->DoubleBuffered = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CreateRect(int i)
{
  S = NULL;
  S = new TShape(this);
  S->Parent = this;
  S->Width = 2;
  S->Height = 1;
  S->Shape = stRectangle;
  S->Left = (this->ClientWidth - S->Width) / 2;
  S->Top = (this->ClientHeight - S->Height) / 2;
  S->Pen->Color = static_cast<TColor> (A[i]);
  S->Brush->Color = static_cast<TColor> (A[i]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
  CreateRect(0);
  Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  static int i = 1;
  if(S->Left == Begin && S->Top == Begin)
   {
     CreateRect(i++);
     Begin += Step;
   }
  else
   {
     if(S->Left - 2 > Begin)
      {
        S->Left -= 2;
        S->Width += 4;
      }
     else
      {
        S->Left = Begin;
        S->Width = this->ClientWidth - Begin * 2;
      }
     if(S->Top - 1 > Begin)
      {
        S->Top -= 1;
        S->Height += 2;
      }
     else
      {
        S->Top = Begin;
        S->Height = this->ClientHeight - Begin * 2;
      }
   }
  Timer1->Enabled = !(i > 8);
  Label1->Caption = "Программа разработана ФИО";
}
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
this->DoubleBuffered = true;
Label1->Caption = "Программа разработана ФИО";
Label1->Visible = false;
 
}
 
Timer1->Enabled = !(i > 8);
if(Timer1->Enabled == false)
this->Canvas->TextOut(((this->ClientWidth - S->Width) / 2) - (Label1->Canvas->TextWidth(Label1->Caption))/2,(this->ClientHeight - S->Height) / 2 - Label1->Height/2,Label1->Caption);

  if (!Timer1->Enabled)
  {
    this->Canvas->Brush->Color = static_cast<TColor> (A[7]);
    this->Canvas->TextOut(((this->ClientWidth - S->Width) / 2) - (Label1->Canvas->TextWidth(Label1->Caption))/2,(this->ClientHeight - S->Height) / 2 - Label1->Height/2,Label1->Caption);
  }

this->Canvas->Brush->Color = clWhite;