delphi 动态数组清空