Ошибка Invalid floating point operation

[ksv1991]

В общем, работаю с компонентами Neuralbase. Прошу помощи у тех, кто имел с ними дело.
Код:

procedure TForm2.Button2Click(Sender: TObject);
var
  v, i, j: Integer;
begin
  v := SpinEdit1.Value;
  NeuralNetExtended1.AvailableFieldsCount := Length(a) + 1;
  for i := 0 to Length(a) - 1 do
  begin
    NeuralNetExtended1.Fields[i].DataInCount := Length(a[0]);
    NeuralNetExtended1.Fields[Length(a)].DataInCount := Length(a[0]);
    NeuralNetExtended1.Fields[i].Kind := 0;
    for j := 0 to Length(a[0]) - 1 do
    begin
      NeuralNetExtended1.Fields[i].DataIn[j] := a[i, j];
    end;
  end;
  j := 0;
  for j := 0 to Length(a[0]) - 1 do
  begin
    NeuralNetExtended1.Fields[Length(a)].DataIn[j] := 1;
  end;
  NeuralNetExtended1.Fields[Length(a)].Kind := 1;
  NeuralNetExtended1.ResetLayers;
  NeuralNetExtended1.AddLayer(NeuralNetExtended1.InputFieldCount);
  NeuralNetExtended1.AddLayer(10);
  NeuralNetExtended1.AddLayer(NeuralNetExtended1.OutPutFieldCount);
  NeuralNetExtended1.Init;
  Memo1.Lines := NeuralNetExtended1.NeuronsInLayer;
  NeuralNetExtended1.Train;
end;

При выполнении выскакивает ошибка First chance exception at $766EB727 'Invalid floating point operation'.
При удалении строки " NeuralNetExtended1.Train;" ошибка не возникает.
Включение в опциях компилятора debug dcu открывает модуль PumpData библиотеки Neuralbase и указывает в нем на эту процедуру:

procedure TNeuroField.Normalize;
var
  i: integer;
  xTmp: double;
begin
  case NormTypeName of
    nrmAuto:  begin
                CalcMid;
                CalcDispersion;
                for i := Low(FDataIn) to High(FDataIn) do
                begin
                  xTmp := (FDataIn[i] - FValueMid)/FDispersion;
                  FDataIn[i] := 1/(1 + exp(-xTmp));
                end;
              end;  
    nrmLinear: for i := Low(FDataIn) to High(FDataIn) do
               FDataIn[i] := 2*(FDataIn[i] - FValueMin)/(FValueMax - FValueMin)-1;
    nrmLinearOut: for i := Low(FDataIn) to High(FDataIn) do
               FDataIn[i] := (FDataIn[i] - FValueMin)/(FValueMax - FValueMin);
    nrmSigmoid: for i := Low(FDataIn) to High(FDataIn) do
               FDataIn[i] := 1/( 1 + exp(-Alpha * FDataIn[i]));
  end;
end;

Массив a заполнен данными формата Byte. Все ячейки массива заполнены.