Error en Array

[Jere_84]

Hola club. La verdad que tengo poca experiencia con arrays y me gustaría ver si me pueden ayudar esta vez, este es mi código:

Código Delphi [-]
var
  vFormuABMCiuda: TvFormuABMCiuda;
  BaseFieldTypes: array of TFieldType;

procedure TvFormuABMCiuda.FormCreate(Sender: TObject);
var
  I: integer;
begin
  inherited;
  CrearDataModule(TDataModuleCiuda, DataModuleCiuda);
  AbrirQuery([DataModuleCiuda.ADODataSetCiudad]);

  for I := 0 to DataModuleCiuda.ADODataSetCiudad.FieldCount - 1 do
     if ((DataModuleCiuda.ADODataSetCiudad.Fields[i].DataType = ftString) or (DataModuleCiuda.ADODataSetCiudad.Fields[i].DataType =    ftInteger)) then
     begin
       BaseFieldTypes[i] := DataModuleCiuda.ADODataSetCiudad.Fields[i].DataType;
       JfComboBoxCampoBusca.Items.AddEx(DataModuleCiuda.ADODataSetCiudad.Fields[i].FieldName, DataModuleCiuda.ADODataSetCiudad.Fields[i].DisplayLabel, '', 0, nil);
     end;
  JfComboBoxCampoBusca.ItemIndex := 0;
end;

Me sale error de memoria en esta linea

Código Delphi [-]
 BaseFieldTypes[i] := DataModuleCiuda.ADODataSetCiudad.Fields[i].DataType;

cuando intento asignar al Array.. que estoy haciendo mal?