SetLength(0);<-要是没特别要求的话,这一句应该就可以了~~
//////////////////////////var
  vLen: Integer;
begin
  vLen := High(vLen);
  SetLength(Array, 0);
  SetLength(Array, vLen);
end;