Mensaje    Asunto: Problemas para borrar con RichEdit Responder citando

Hola a todos:

Estoy utilizando un componente RichEdit como una salida de consola. Para que cuando alcanze su nivel maximo borre la primera he hecho el siguiente codigo:

Size= Form1->RichEdit1->GetTextLen(); // miro lo que ocupa el texto
if (Size> Form1->RichEdit1->Maxlength-200) // si la longitud del texto es mayor del valor maximo tel RichEdit-200
Form1->RichEdit1->Delete(0); // borro la primera linea

El caso es que cuando se cumple la condicion y intenta borrar la primera linea el progrma se me vuelve lentisimo y no funciona bien
¿Algun consejo?

Muchas gracias