Problemas con la memo.lines.strings[n]

[yesa_no]

Tengo un problema que no se como solucionarlo i es que al poner el siguiente codigo, la Memo1.lines.strings[n] solo me pillar las 6 primeras letras como una linia, i no se como hacer para que la memo me pille tota la linia entera!!

num:=StrToInt(Memo1.Lines.Strings[0]);
for m:=0 to num-1 do begin
Llista.Cells[0,m]:=Memo1.Lines.Strings[1+(3*m)];
Llista.RowCount:=Llista.RowCount+1; end;

haber si alguien sabe contestarme porque no se como hacerlo!!!!