procedure TForm1.Button1Click(Sender: TObject); var a,b: TVec; begin CreateIt(a,b); try a.SetIt(False,[1,2,3,4]); a.Cos; b.Size(a); b.SetVal(1); a.Add(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); finally FreeIt(a,b); end; end;