QRRichText y negrita

[Angel.Matilla]

Estaba tratando de adaptar el código del hilo Cómo poner QRRichText en negrita para una aplicación en C++ Builder 6. Lo he dejado así:
Función

void Negrita(TRichEdit *Rich, AnsiString Texto)
{
     int nPos = Rich->FindText(Texto, 0, 1000, TSearchTypes() << stMatchCase);

     Rich->SelStart  = nPos;
     Rich->SelLength = Texto.Length();
     Rich->SelAttributes->Style << fsBold;
}
//---------------------------------------------------------------------------

Y para usarlo pongo esto:

Negrita(fCarSoc->RichText->ParentRichEdit, Label10->Caption);

Se compila sin problema, pero al ejecutarlo me da un mensaje de error:


He comprobado con el depurador que ParentRichEdit aparece como NULL. ¿Qué estoy haciendo mal?