显然楼主习惯了C数组的用法，但是这个地方没必要用指针，况且你的指针用的也有问题。

Delphi里的做法可以参考下面：

procedure InitBoolArray(aBoolArray: array of Boolean; aValue: Boolean);
var
  I: Integer;
begin
  for I := Low(aBoolArray) to High(aBoolArray) do //可以用Low,High来求数组边界
    aBoolArray[I]:= aValue;
end;

调用：
var
  lBoolArray: array[0..99] of Boolean;
begin
  InitBoolArray(lBoolArray, False);
end;

BTW：在团队合作时候，尽可能对变量做显式初始化而少用默认值以减少出错的可能。

你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846

这是一个互助的模式。
不推广人也有钱赚的。分A B两个网。
不推广的人在A网。推广的人 在B网。
B网推广的人帮助A网。
A网拿6000元出局。
B网就多了。
C易特元亨QQ919169870
奖励制度 
C易特更多资料C易特元亨QQ919169870
http://blog.sina.com.cn/cyite6
C易特奖励制度
http://blog.sina.com.cn/s/blog_6b2561440100l5r8.html