[Страдалецъ]

Значит надо парсить. Примерно так будет?

Код:

 s := stroka + ',';
 i := 0; j := 0;
 while Pos(',', s) <> 0
 do begin
    massiv[i,j] := Copy(s, 1, Pos(',', s)-1);
    Delete(s, 1, Pos(',', s));
    Inc(i);
    if i > 30
    then begin
         i := 0;
         Inc(j);
         end;
    end;