Recorrer un string y actuar segun palabras leidas

[*Caro*]

Hola, como te dice el amigo Coso, para acceder a las líneas debes hacerlo con la propiedad Lines y su respectivo indice.

Tu codigo en un memo mas o menos sería así (para marcar varias líneas), le das valores a LineaIni y LineaFin, que serían las líneas que quieres marcar:

Código Delphi [-]
var
 i, LineaIni, LineaFin, aLength, aStart : Integer;
begin
 aLength := 0;
 aStart := 0;
 for i:=0 To LineaIni-1 do
  aStart := aStart + Length(Memo1.Lines[i])+2;
 
 for i:=LineaIni To LineaFin do
  aLength := aLength +Length(Memo1.Lines[i])+2;
 
 Memo1.SelStart := aStart;
 Memo1.SelLength := aLength;
 Memo1.SetFocus;
 Showmessage(Memo1.SelText);

Pero no entiendo porque lo haces así, si quieres obtener una parte de un texto en una cadena puedes utilizar la función Copy.

Saluditos