Problemas con la memo.lines.strings[n]

[yesa_no]

Aki teneis lo que hago :

Memo1.Clear;
Memo1.Lines.Strings[0]:='2';
Memo1.Lines.Add('Liquido');
Memo1.Lines.Add(' ');
Memo1.Lines.Add('codliquido');
Memo1.Lines.Add('Tubo pepito grillo');
Memo1.Lines.Add('5');
Memo1.Lines.Add('codtubo');
num:=StrToInt(Memo1.Lines.Strings[0]);
for m:=0 to num-1 do begin
Llista.Cells[0,m]:=Memo1.Lines[1+(3*m)];
Llista.RowCount:=Llista.RowCount+1; end;
Llista.RowCount:=Llista.RowCount-1;
If Llista.RowCount>8 then Llista.Width:=441;

Un saludo, Merci