Finales de linea

[Iuconlas]

Hola,
Necesito saber como detectar un salto de linea, final de linea, retorno de carro, que para el caso me serviría cualquiera. Recorro el texto que tengo cargado en un RichEdit caracter a caracter mediante RichEdit.selStart y quiero que cuando llegue a final de linea pase a la siguiente linea, sin embargo lo único que he conseguido es que lea carácteres infinitos.

Mi código es el siguiente:
while not (RichEdit1.selText = 'a') do
begin
RichEdit1.selStart:=RichEdit1.selStart+1;
RichEdit1.selLength:=Length('1');
end;
Cuando sale del bucle el cursor está posicionado en la a.

Este código me funciona bien si las búsquedas son en la misma linea pero cuando salta de linea tiende a infinito y no termina nunca colapsando el equipo. Gracias de antemano.

[delphi.com.ar]

No creo que sea nada veloz, andar moviendo la selección para obtener un caracter. ¿Qué es lo que quieres hacer?... digamos.. el resultado final. ¿No puedes trabajar con el texto directamente?


var
Text: string;
i, Len: Integer;
begin
Text := Richedit1.Text;
Len := Length(Text);
for i := 1 to Len do
Caption := Text[i];
end;

[Iuconlas]

Gracias, en cuanto pueda lo prueba y te digo si me funciona y si ahora funciona más rápido.