var NNet: TNeuroNetBP; begin NNet := TNeuroNetBP.Create(2, 3, 5, 1); NNet.SKoef:= 0.2; NNet.NStep:= 5; NNet.initializ; end;