Реализовать бегущую строку

AnsiString = "Hellow Moscow";
void _fastcall TForm1::Timer1Timer(TObject  *Sender)
{
  Edit1->Clear();
   if(!Str.IsEmpty())
{  Edit1->Text = Str;
    char first = Str[1];
    for(int i=1;i < Str.Length();i++)
    Str[i] = Str[i+1];
    Str[Str.Length()] = first;
}
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        static int ticksCount = 0;
        String newString;
        for(int i = 0, d = 1 - 2 * (ticksCount / 100 % 2); i < Edit1->Text.Length(); ++i)
                newString += Edit1->Text[(i  + d + Edit1->Text.Length()) % Edit1->Text.Length() + 1];
        Edit1->Text = newString;
        ++ticksCount;
}

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TImage *Image1;
    TTimer *Timer1;
    void __fastcall Timer1Timer(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
class TRect MyRect;
int x,y;
bool rear;
};

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
MyRect.init(0,0,1980,100);
x=0;
y=1;
rear = false;
Image1->Canvas->Font->Size = 12 ;
Image1->Canvas->Font->Style = TFontStyles() << fsBold << fsUnderline << fsItalic << fsStrikeOut;
Image1->IncrementalDisplay = true;
Image1->ControlStyle = TControlStyle() << csOpaque;
 
//Image1->Canvas->TextRect(MyRect,x,y,"Hello");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (rear) {
--x;
}else
++x;
Image1->Canvas->TextRect(Form1->MyRect,x,y,"Привет УчАсТнИкАм СоРеВнОвАнИй !!!");
Image1->Canvas->Font->Color = (TColor)x;
if ( x == 400 && rear == false) {
rear = true;
}
else if (x == 0 && rear == true) {
rear = false;
     }
}

void __fastcall TPagesDlg::Timer5Timer(TObject *Sender)
{//бегущая строка
static String InitialCaption = Caption;
Caption = Caption.SubString(9, (Caption.Length() - 1));
if(!Caption.Length())
Caption = InitialCaption;
}