Borland Builder c++ faster syntax highlighting??

[hckrcm]

Hi,I have a question about syntax highlighting. I wrote on Borland Builder c++ and The code works correct. But ,when ı write so many codes on RichEdit,The computer gets slow,and The special codes are colored later, and I can not write perfectly on RichEdit anymore. Because,computer gets slow. What can ı do.I share the codes below. Please answer...

void __fastcall TForm1::Timer1Timer(TObject *Sender){
::SendMessage(RichEdit1->Handle, WM_SETREDRAW, false, 0);
int sp = RichEdit1->SelStart;
 
RichEdit1->SelectAll();
RichEdit1->SelAttributes->Color=clBlack;
RichEdit1->SelAttributes->Style=first;
 
String dizi[]={"abstract","do","if","package","synchronized",
               "boolean","double","implements","private","this","break","else","import","protected","throw",
               "byte","extends","instanceof","public","throws","case","false","int","return","transient",
               "catch","final","interface","short","true","char","finally","long","static","try",
               "class","float","native","strictfp","void","const","for","new","super","volatile",
               "continue","goto","null","switch","while","default","assert","String"
 
               };
int sonuc,uzunluk;
String x;
TSearchTypes secenek;
uzunluk=RichEdit1->Text.Length();
secenek=secenek<<stWholeWord;
for(int i=0;i<54;i++){
sonuc=0;
 
a:
 
 sonuc=RichEdit1->FindTextA(dizi[i],sonuc,uzunluk,secenek);
 if(sonuc!=-1){//1.
        RichEdit1->SelStart=sonuc;
        RichEdit1->SelLength=dizi[i].Length();
 
                if(RichEdit1->SelText==dizi[i])  {
                     RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
                     RichEdit1->SelAttributes->Color=clMaroon;
                                                 }
                   else RichEdit1->SelAttributes->Color=clBlack;
                     sonuc=RichEdit1->SelStart+RichEdit1->SelLength;
                     goto a;
 
             }//sonuc!=-1 condition end
 
 
                      }//for loop end
 
 
 
 
 RichEdit1->SelStart = sp;
 
 ::SendMessage(RichEdit1->Handle, WM_SETREDRAW, true, 0);
  RichEdit1->Repaint();
 
 
 
 
 ::SendMessage(RichEdit1->Handle, WM_SETREDRAW, false, 0);
 sp = RichEdit1->SelStart;
 
 
::SendMessage(RichEdit1->Handle, WM_SETREDRAW, false, 0);
String dizi2[]={"//","/*","*/","\"","\"","\'","\'"};
 
 
 
uzunluk=RichEdit1->Text.Length();
secenek=secenek>>stWholeWord;
secenek=secenek<<stMatchCase;
for(int i=0;i<7;i++){
sonuc=0;
 
b:
 
 sonuc=RichEdit1->FindTextA(dizi2[i],sonuc,uzunluk,secenek);
 if(sonuc!=-1){//1.
 
           if(i==0){
 RichEdit1->SelStart=sonuc;
 RichEdit1->SelLength=RichEdit1->Lines->Strings[RichEdit1->CaretPos.y].Length()-RichEdit1->CaretPos.x;
 
 RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsItalic;
 RichEdit1->SelAttributes->Color=clGreen;
                    }
     else  if(i==1){
 RichEdit1->SelStart=sonuc;
 int temp=RichEdit1->FindTextA("*/",sonuc+2,uzunluk,secenek);
 
 RichEdit1->SelLength=temp-sonuc;
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsItalic;
 RichEdit1->SelAttributes->Color=clGreen;
 
                 }
 else if(i==2){
 RichEdit1->SelStart=sonuc;
 RichEdit1->SelLength=dizi2[i].Length();
    RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsItalic;
 RichEdit1->SelAttributes->Color=clGreen;
             }
 else if(i==3){
 
 RichEdit1->SelStart=sonuc;
 int temp=RichEdit1->FindTextA("\"",sonuc+1,uzunluk,secenek);
 RichEdit1->SelLength=temp-sonuc;
  RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
 RichEdit1->SelAttributes->Color=clBlue;
 if(temp!=-1){
  RichEdit1->SelStart=temp+1;
  RichEdit1->SelLength=0;
  RichEdit1->SelAttributes->Color=clBlack;
             }
 
               }
  else if(i==4){
 RichEdit1->SelStart=sonuc;
 RichEdit1->SelLength=dizi2[i].Length();
    RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
 RichEdit1->SelAttributes->Color=clBlue;
 
                }
 else if(i==5) {
    RichEdit1->SelStart=sonuc;
 int temp=RichEdit1->FindTextA("\'",sonuc+1,uzunluk,secenek);
 RichEdit1->SelLength=temp-sonuc;
  RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
 RichEdit1->SelAttributes->Color=clBlue;
 if(temp!=-1){
  RichEdit1->SelStart=temp+1;
  RichEdit1->SelLength=0;
  RichEdit1->SelAttributes->Color=clBlack;
               }
 
                   }
     else if(i==6){
 RichEdit1->SelStart=sonuc;
 RichEdit1->SelLength=dizi2[i].Length();
    RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
 RichEdit1->SelAttributes->Color=clBlue;
 
                }
 
 
                  else RichEdit1->SelAttributes->Color=clBlack;
                     sonuc=RichEdit1->SelStart+RichEdit1->SelLength;
                     goto b;
 
             }//sonuc!=-1 condition end
 
 
                      }//for loop end
 
 
 
 
 
 
  RichEdit1->SelStart = sp;
 
::SendMessage(RichEdit1->Handle, WM_SETREDRAW, true, 0);
 RichEdit1->Repaint();
  RichEdit1->SetFocus();
  //finish
 
}