with文の中でCreateしてそのままFreeするというのは
あまりDelphiらしくない方法ではあるよね