Режим обучения

[Ericnex]

Есть нейронная сеть по распознаванию крестика. Есть кнопка Обучить которая при неверном ответе сети исправляет ее, но сеть не запоминает этот образ и при следующем нажатии кнопки распознать все равно выдает неверный ответ. Как сделать в режиме обучения так чтобы сеть запоминала обучение и учитывала это?

procedure TForm1.Button6Click(Sender: TObject);
var i, j: Byte;
d: ShortInt;
begin
if RadioButton1.Checked then d:=1
else d:=-1;
for i:=0 to n-1 do
for j:=0 to n-1 do
begin
ves[i,j]:=ves[i,j]+speed*d*vhod[i,j];
PaintBox2.Canvas.Pixels[j,i]:=Round(50/ves[i,j]);
end;
if RadioButton1.Checked then Showmessage('Сеть обучена: Это не крестик!')
else Showmessage('Сеть обучена: Это крестик!');

end;

end.