Delphi 动态数组如何累计赋值

var
HwndArr: array[0..100] of DWORD;
i:Integer;
begin
if HwndArr[i] = 0 then
begin
// 初始化数组，这里我不会
end;
if HwndArr[i] <> h then
begin
HwndArr[i] := h;
i := i+1;
end;
end;

我想把遍历的句柄保存在一个数组，然后用这个句柄数组对比新的句柄

如果不同 则添加在这个句柄数组。。 大牛们帮帮忙 啊，搞了一下午了~~~
我知道阿，我就是不知道怎么编写代码。。。。

---

循环查找，如果没有则添加。

---

for i=low(HwndArr) to high(HwndArr) do
HwndArr[i]:=xxx

---