redimension de array se pierde por bucle !!!!!

[david_uh]

tengo el siguiente codigo

Código Delphi [-]
i := 1;
        while not ZListas.Eof do                //
        begin
            cbo_Cliente.AddItem(ZListas['cliente'],
               pointer(ZListas.FieldByName('id').AsInteger));
            SetLength(arrDirecciones,i);
            arrDirecciones[i-1] := ZListas.FieldByName('Direccion').AsString;
            Inc(i);
            ZListas.Next;
        end;

for i := 1 to 1000 do
             begin
               Items.Add( IntToStr(i) );
               arrFact[i] := i;
             end;

tengo declarado como global el array arrDirecciones en el primer bucle ademas de asignar a un combo los nombres de los clientes guardoen el array sus direcciones

en el otro bucle for trabajo con elarray arrFact estático pero cuando este se ejecuta este for pasa que el primer array se queda sin elementos !!!!!!!! osea como a cero nulo como si no lo hubiese redimensionado.

alguna vez te paso esto? que estoy haciendo mal??? estoyenloqueciendo???