fName:=Edit1.Text;
  AssignFile(f,fName);
  Rewrite(f);
  SetLength(a,Memo1.Lines.Count);
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    s:=Memo1.Lines[i];
    k:=StrToFloat(s);
    a[i+1]:=k;
  end;
  for i := 1 to Memo1.Lines.Count do
  begin
    write(f,a[i]);
  end;

  closefile(f);