procedure saveStr(sToSave: string;path: string);
var
  fOut: TStreamWriter;
begin
  fOut := TStreamWriter.Create(path, true, TEncoding.UTF8);
  try
    fOut.WriteLine(sToSave);
  finally
    fOut.Free;
  end;
end;