Fórum Delphi Memo Formatar texto de arquivo txt no memo #516439

Gente, é o seguinte.

Quero identificar o que é fim de linha no Memo.
Isso é parte do que pretendo fazer. Como eu não sei manipular arquivo, prefiro manipular o conteúdo da memo.

Como não dá pra modificar o titulo do tópico, eu resolvi escrever aqui o que eu tenho feito e o que eu resolvi fazer:

Tenho uma dúvida sobre a função POS();
TEM COM ENCHUTAR ESSA ROTINA?

var
textL:string;
vpos, nL: integer;

textL:= memo1.lines[nl]; //COPIA LINHA PARA STRING
vpos:=(Pos('R',textL)); //RETORNA POSIÇÃO DA SUB-STRING E JOGA EM vpos
if vpos <> 0 then dec(vpos); //SE vpos FOR DIFER DE 0, ENTÃO DECREMENTA 1 (VPOS AGORA MARCA A POSIÇÃO DO CARACTER ANTERIOR)
textL:= copy(textL, vpos, 1); //COPIA 1 LETRA APARTIR DA POSIÇÃO ANTERIOR AO SUB-STRING

EXISTE UM JEITO DE FAZER ISSO NUMA ÚNICA FUNÇÃO?