Problemas con arreglos bidimensionales contantes

[davidc]

Buen día.

De antemano gracias por atender mi pregunta.

Hago el recorrido del arreglo retomando cada posición en variables
y con estas lleno listas y operaciones no complejas.

El arreglo lo recorro con un for simple y lo había intentado con un while y el
resultado fue el mismo. En algunos casos funciona y en otros no.

Codigo:

procedure X();
var vCampo1,vCampo2, vCampo3:String;
begin
...
...
for I := 0 to 16 - 1 do
begin
vCampo1:=Campos[i][0];
vCampo2:=Campos[i][1];
vCampo3:=Campos[i][2];
vCampo4:=Campos[i][3];
//.. operaciones con variables string..
end;
end;