Бегущий Label1 в пределах прозрачного Panel1

  if(Label1->Caption.Length()>38) //строка не влезает в форму
 {
 if (Label1->Left+Label1->Width <= 0) 
 Label1->Left = 250;
  Label1->Left = Label1->Left - 1;
  }
  else
  {
  Label1->Left = this->Width / 2 - Label1->Width / 2; //центрирую по середине екрана
  }

 HRGN All, TempRgn;
        int x, y, i;
        x = (div(Form1->Panel1->Width - Form1->Panel1->ClientWidth, 2)).quot;
        y = Form1->Panel1->Height - Form1->Panel1->ClientHeight - x;
        All = CreateRectRgn(0, 0, Form1->Panel1->Width, Form1->Panel1->Height);
        TempRgn = CreateRectRgn(x, y, x + Form1->Panel1->ClientWidth, y + Form1->Panel1->ClientHeight);
        CombineRgn(All, All, TempRgn, RGN_DIFF);
        for (i = 0; i < Form1->Panel1->ControlCount; i++) {
        TempRgn = CreateRectRgn(x + Form1->Panel1->Controls[i]->Left,
        y + Form1->Panel1->Controls[i]->Top,
        x + Form1->Panel1->Controls[i]->Left + Form1->Panel1->Controls[i]->Width,
        y + Form1->Panel1->Controls[i]->Top + Form1->Panel1->Controls[i]->Height);
        CombineRgn(All, All, TempRgn, RGN_OR);
}
        SetWindowRgn(Form1->Panel1->Handle, All, true);

Panel->Color = Parent->Color;

int x,y=100,h=1;
String text;
TSize size;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
text = Edit1->Text;
size= Canvas->TextExtent(text);
DoubleBuffered= true;
Timer1->Interval= 10;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Canvas->FillRect(TRect(x-1,y,x+size.Width,y+1+size.Height) );
    x+= h;
    Canvas->TextOutW(x,y,text);
 
   if(x>Width) x= -size.Width;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
// Memo
  LONG exStyle = ::GetWindowLong(Memo1->Handle, GWL_EXSTYLE);
  exStyle |= WS_EX_TRANSPARENT;
  ::SetWindowLong(Memo1->Handle, GWL_EXSTYLE, exStyle);
  Memo1->Brush->Style = bsClear;
  Memo1->ReadOnly = true;
  Memo1->Text = "Ïðîçðà÷íûé ôîí Memo1";
  Memo2->Text = "Íåïðîçðà÷íûé ôîí Memo2";
 
  LONG ezStyle = ::GetWindowLong(Panel1->Handle, GWL_EXSTYLE);
  ezStyle |= WS_EX_TRANSPARENT;
  ::SetWindowLong(Panel1->Handle, GWL_EXSTYLE, ezStyle);
}