無風的日子

  sbox := GetDocumentsPath + PathDelim;
  Delete (sbox,length(sbox)-10,10);
  sbox := sbox + 'res' + PathDelim;