[v1s2222]

Код:

...
  for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do begin
      m_[Q].X := i;
      m_[Q].Y := k;

Где Q - это индекс массива.