[konsul_81]

так что ли:

Код:

 For I := 0 To L.Count-1 Do
    Begin
       StringGrid1.Cells[0,i + 1] := Copy(L[i],1,Pos(',',L[i])-1);
       StringGrid1.Cells[1,i + 1] := Copy(L[i],Pos(',',L[i])+1,Length(L[i]));
    End;

теперь все пучком