Уменьшающаяся бегущая строка

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   Edit1->Clear();
  if (!Str.IsEmpty())   // Если строка не пуста
  { Edit1->Text = Str;
    char first = Str[1];
    char last =Str[36];
    for (int i=1; i < Str.Length(); i++)             //Циклический сдвиг строки
      Str[i] = Str[i+1];                              //на один символ влево
    Str[Str.Length()] = first; } 
 if (Str[Str.Length()] = Str[36])
     {Str.Length= (Str.Length / 2);}
     if (Str[Str.Length()] = Str[18])
     {Str.Length= (Str.Length / 2);}
}

Str.Length= (Str.Length / 2)

if (Str[Str.Length()] = Str[36])
     {Str[Str.Length()] = Str[18];}
     if (Str[Str.Length()] = Str[18])
     //{Str.Length= (Str.Length / 2);}
     {Str[Str.Length()]= Str[9];}

    String S("");
    String Out("");
    S = Edit1->Text;
    Out = S.SubString(0, S.Length() / 2);
    Memo1->Lines->Add(Out);
    Edit1->Text = Out;

String S("");
    String Out("");
    S = Edit1->Text;
    Out = S.SubString(1, S.Length() / 2);
    Memo1->Lines->Add(Out);
    Edit1->Text = Out;