Delphi Richedit Parsen und Fontcolor auslesen

[ReVenGer]

Die RGB Werte reichen ja schon als Identifikation. Die könnte ich dann entsprechend ersetzen und den Text inkl. verarbeitetem RGB Code in ein anderes Richedit einfügen.
Nur wie Parse ich das?

void __fastcall TForm7::Button1Click(TObject *Sender)
{
int textLength, i;
TConsistentAttributes textAttribute;
TColor textColor;

textLength = RichEdit1->Text.Length() ;

for (i = 0; i < textLength; i++) {
RichEdit1->SelStart = i;
RichEdit1->SelLength = 1;
textAttribute = RichEdit1->SelAttributes->ConsistentAttributes;
if (textAttribute.Contains(caColor))
{
textColor = RichEdit1->SelAttributes->Color;
if (textColor == clRed) {

}

}

}

So würde ich es in C++ machen.