Velocidad de acceso a un TRichEdit

[shaktale]

De hecho con esta pequeña prueba que consiste en la lectura de las 200 primeras lineas y de las 200 lineas a partir de la 9000 me salen grandes diferencias: cuando leo las primeras lineas tarda del orden de 60ms, mientras q leyendo las ultimas unos 400.

Prueba:

  t:=GetTickCount;
  for i:=1 to 200 do
    label2.caption:=RichEdit1.Lines[i];
  label1.caption:=FloatToStr(GetTickCount-t);

  t:=GetTickCount;
  for i:=9001 to 9200 do
  label4.caption:=RichEdit1.Lines[i];
  label3.caption:=FloatToStr(GetTickCount-t);