FillChar(array, Sizeof(Array), #0);

for i := 0 to Length(Array) -1 do
　Array[i] := #0;

どっちが見やすいのは一目瞭然だと思うけど