Hola,
Una línea o todo el texto de un Memo no es sino una cadena de caracteres, un "array de char", con la particularidad de que su índice comienza en "1" y no en "0". Y en Delphi es posible recorrer una cadena de caracteres de varias formas, como en un bucle "for", por ejemplo. Esto se resumiría así, más o menos:
Código Delphi
[-]
var
s,t: string;
i,k: integer;
begin
s := 'Estás en el ClubDelphi';
k := Length(s);
for i := 1 to k do begin
t := t + s[i];
end;
ShowMessage(t);
end;
También es posible recorrer una cadena al menos de otra forma: usando "punteros", a la manera de
Federico Firenze, que pueda que sea más rápida que la anterior forma de hacerlo:
Código Delphi
[-]
var
c: Char;
a,s,d: PChar;
l: integer;
begin
a := '';
s := 'Estás en el ClubDelphi';
l := Length(s);
d := Pointer(s);
while (l <> 0) do
begin
c := d^; a := PChar(a + c);
Inc(d);
Dec(l);
end;
ShowMessage(a);
end;