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.