[LSK]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
For i:=0 to Memo1.lines.count-1 do
  Matrix[i]:= Memo1.lines[i];
end;