заполнение stringgrid

[влад1991]

имеется цикл заполнения stringgrid..но здесь строку по которой заполняешь вводишь сам: '12-22-(4),3-22-(2),4-22-(2),6-22-(2),7-1-(2),7-2-(2),8-1-(2),8-2-(2)'...
как сделать ,чтоб строка бралась автоматически например из memo или listbox????



procedure TForm1.Button6Click(Sender: TObject);
var
s:string;
i : Integer;
L : TStringList;
begin
s := '12-22-(4),3-22-(2),4-22-(2),6-22-(2),7-1-(2),7-2-(2),8-1-(2),8-2-(2)';
L := TStringList.Create;
try
L.CommaText := StringReplace(s, '-', ',', [rfReplaceAll]);
i := 0;
repeat
StringGrid1.Cells[StrToInt(L[i]), StrToInt(L[i + 1])] := MidStr(L[i + 2], 2, Length(L[i + 2]) - 2);
Inc(i, 3);
until i >= L.Count;
finally
L.Free;
end;