[The Shadow]

А вот пример с Edit'ом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
Separator = ';';
MatrSeparator = '|';
var
i, j, p: Integer;
Str, s, buf: String;
begin
Str:=Edit1.Text;
for i:=0 to m do
begin
if i < m then
begin
s:=Copy(Str, 1, Pos(MatrSeparator, Str) - 1);
Delete(Str, 1, Pos(MatrSeparator, Str));
end
else
s:=Str;
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;