[The Shadow]

Вот пример с Memo:

Код:

const
  m = 9;
  n = 9;

var
...
  Matrix: Array [0..m] of Array [0..n] of String;

...

procedure TForm1.Button1Click(Sender: TObject);
const
Separator = ';';
var
i, j, p: Integer;
s, buf: String;
begin
for i:=0 to m do
begin
s:=Memo1.Lines.Strings[i];
for j:=0 to n do
begin
if j < n then
begin
p:=Pos(Separator, s);
buf:=Copy(s, 1, p - 1);
Delete(s, 1, p);
end
else
buf:=s;
Matrix[i][j]:=buf;
end;
end;
end;