Leer cada linea de un memo y como determinar si llego al final

[douglas]

gracias lepe buena onda, me funciono re bien el codigo me queda asi

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
area[i+1]:=memo1.Lines[i];
end;
end;

bueno ahora ya sabemos que cada linea del memo esta en cada variable del array.

pero ahora te vuelvo a molestar con otra pregunta:

a[1]:='hola'
suponiendo que lo anterio fue capturado en la primer linea del memo, pero ahora eso lo quiero pasar a otro array pero de esta forma

b[1]:='h';
b[2]:='o';
b[3]:='l';
b[4]:='a';

existen algun modo???? ayudenme si