procedure TForm1.Button1Click(Sender: TObject); var a,b: Matrix; begin a.SetIt(2,2,False,[1,2,3,4]); a.Cos; b.Size(a); b.SetVal(1); a := a + b; Richedit1.Clear; Memo1.Clear; a.ValuesToStrings(Richedit1.Lines); b.ValuesToStrings(Richedit1.Lines); a.ValuesToStrings(Memo1.Lines); b.ValuesToStrings(Memo1.Lines); Memo1.Lines.SaveToFile('C:Test.txt'); Memo1.Lines.LoadFromFile('C:Test.txt'); a.StringsToValues(Memo1.Lines); end;