Нейронные сети

Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan, DB, DBTables;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Button3: TButton;
XPManifest1: TXPManifest;
Image1: TImage;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
SaveDialog1: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
const
n = 225;
var
d0,d1,d2,d3,d4,d5,d6,d7,d8,d9:real;
dd0,dd1,dd2,dd3,dd4,dd5,dd6,dd7,dd8,dd9:real;
Form1: TForm1;
Move: boolean;
W: array [0..225,0..225,0..9] of Real;
X: array [0..225,0..225] of Real;
a: Real;
implementation
uses ConvUtils;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i,j,k:byte;
begin
//Расстояния;
d1:=0;
d2:=0;
d3:=0;
d4:=0;
d5:=0;
d6:=0;
d7:=0;
d8:=0;
d9:=0;
d0:=0;
a:=0.9;
for i:=1 to n do
for j:=1 to n do
Image1.Canvas.Pixels[j,i]:=ClWhite;
//Задаём малые случайные значения синаптических весов нейронов;
for i:=1 to n do
for j:=1 to n do
for k:=0 to 9 do
begin
W[i,j,k]:=random(n)/1000;
end;
end;
....
...
..
.

Листинг программы
Формы исполняемого приложения