Окрасить в Edit символы в разный цвет

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
LabeledEdit1->Clear();
LabeledEdit2->Clear();
Memo1->Text=" ñòðîêå, ñîñòîÿùåé èç ãðóïï íóëåé, åäèíèö è äåâÿòîê, ïîäñ÷èòàòü êîëè÷åñòâî äåâÿòîê.";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String s1=LabeledEdit1->Text;
int k=s1.Length();
int m=0;
for(int i=1;i<=k;i++)
{
if (s1[i]=='9')
m++;
}
LabeledEdit2->Text=m;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
String S = "";
int i;
int N =20 + random(10);
 
for( i = 0; i<N; i++)
{
char s1;
s1 = 48 + random(10);
if (s1=='0'||s1=='1'||s1=='9')
S += s1;
}
if (S.Length()>=5)
LabeledEdit1->Text = S;
}
//---