Почистить динамический массив

[Serges]

Вот формат моего динамического массива:

Type
  TCellsRange = record               // Диапазон ячеек
      x0,y0,xn,yn : integer;
    end;

  TSheetPass = record   // Пароль к странице с диапазонами ячеек
      Pass : string;
      CellsRange : array of TCellsRange;
    end;

  TSheetsPass = record               // Список паролей к странице
      Pass : array of TSheetPass;
    end;
............
var   DocPass : array of TSheetsPass;

Каким макаром можно очистить этот массив не перебирая по отдельным элементам?
например так по отдельности, но это получится цикл неслабый

DocPass[i].Pass[j].Pass := ''  ;

[BOBAH13]

Только так.