problema en for

[julyus]

aEventCode es un array dinamico

iMessageId es una varibale que debo auto incrementar
cuando aEventCode[iCount] = 1


for iCount := 0 to Length(aEventCode) - 1 do
begin
if aEventCode[iCount] = 1 then
begin

inc(iMessageId);
end;
end;