Эйлеровые и Гамильтоновы цепи и циклы

form1.Canvas.LineTo(xy[2,1],xy[2,2]);

prov1:=0;                    c[2,ver]:=1;

                         c[ver,2]:=1;

                    radiobutton2.Checked:=false;memo1.Text:='';BitBtn2Click(Sender);

                    re[o,1]:=2;

                    re[o,2]:=qwe;inc(o);BitBtn5Click(Sender);

end else begin    qwe:=2;

koor1:=xy[2,1];

koor2:=xy[2,2];

     ver:=2;prov1:=1; end; 

end; 

procedure TForm1.RadioButton3Click(Sender: TObject);

begin memo2.Text:='';

if prov1=1 then begin

str(o,s);

form1.Canvas.TextOut(koor1+round((xy[3,1]-koor1)/2),koor2+round((xy[3,2]-koor2)/2),'X'+s);

form1.Canvas.MoveTo(koor1,koor2);

form1.Canvas.LineTo(xy[3,1],xy[3,2]);

prov1:=0;                    c[3,ver]:=1;

                         c[ver,3]:=1;

                    radiobutton3.Checked:=false;memo1.Text:='';BitBtn2Click(Sender);

                    re[o,1]:=3;

                    re[o,2]:=qwe;inc(o);BitBtn5Click(Sender);

end else begin    qwe:=3;

koor1:=xy[3,1];

koor2:=xy[3,2];

     ver:=3;prov1:=1; end;

end; 

procedure TForm1.RadioButton4Click(Sender: TObject);

begin         memo2.Text:='';

if prov1=1 then begin

str(o,s);

form1.Canvas.TextOut(koor1+round((xy[4,1]-koor1)/2),koor2+round((xy[4,2]-koor2)/2),'X'+s);

form1.Canvas.MoveTo(koor1,koor2);

form1.Canvas.LineTo(xy[4,1],xy[4,2]);

prov1:=0;                    c[4,ver]:=1;

                         c[ver,4]:=1;

                    radiobutton4.Checked:=false;memo1.Text:='';BitBtn2Click(Sender);

                    re[o,1]:=4;

                    re[o,2]:=qwe;inc(o);BitBtn5Click(Sender);

end else begin    qwe:=4;

koor1:=xy[4,1];

koor2:=xy[4,2];

     ver:=4;prov1:=1; end;

end; 

procedure TForm1.RadioButton5Click(Sender: TObject);

begin          memo2.Text:='';

if prov1=1 then begin

str(o,s);

form1.Canvas.TextOut(koor1+round((xy[5,1]-koor1)/2),koor2+round((xy[5,2]-koor2)/2),'X'+s);

form1.Canvas.MoveTo(koor1,koor2);

form1.Canvas.LineTo(xy[5,1],xy[5,2]);

prov1:=0;                    c[5,ver]:=1;

                         c[ver,5]:=1;

                    radiobutton5.Checked:=false;memo1.Text:='';BitBtn2Click(Sender);

                    re[o,1]:=5;

                    re[o,2]:=qwe;inc(o);BitBtn5Click(Sender);

end else begin          qwe:=5;

koor1:=xy[5,1];

koor2:=xy[5,2];

     ver:=5;prov1:=1; end;

end; 

procedure TForm1.RadioButton6Click(Sender: TObject);

begin      memo2.Text:='';

if prov1=1 then begin

str(o,s);

form1.Canvas.TextOut(koor1+round((xy[6,1]-koor1)/2),koor2+round((xy[6,2]-koor2)/2),'X'+s);

form1.Canvas.MoveTo(koor1,koor2);

form1.Canvas.LineTo(xy[6,1],xy[6,2]);

prov1:=0;                    c[6,ver]:=1;

                         c[ver,6]:=1;

                    radiobutton6.Checked:=false;memo1.Text:='';BitBtn2Click(Sender);

                    re[o,1]:=6;

                    re[o,2]:=qwe;inc(o);BitBtn5Click(Sender);

end else begin          qwe:=6;

koor1:=xy[6,1];

koor2:=xy[6,2];

     ver:=6;prov1:=1; end;

end; 

procedure TForm1.RadioButton7Click(Sender: TObject);

begin         memo2.Text:='';

if prov1=1 then begin

str(o,s);

form1.Canvas.TextOut(koor1+round((xy[7,1]-koor1)/2),koor2+round((xy[7,2]-koor2)/2),'X'+s);

form1.Canvas.MoveTo(koor1,koor2);

form1.Canvas.LineTo(xy[7,1],xy[7,2]);

prov1:=0;                    c[7,ver]:=1;

                         c[ver,7]:=1;

                    radiobutton7.Checked:=false;memo1.Text:='';BitBtn2Click(Sender);

                    re[o,1]:=7;

                    re[o,2]:=qwe;inc(o);BitBtn5Click(Sender);

end else begin          qwe:=7;

koor1:=xy[7,1];

koor2:=xy[7,2];

     ver:=7;prov1:=1; end;

end; 

procedure TForm1.RadioButton8Click(Sender: TObject);

begin           memo2.Text:='';

if prov1=1 then begin

str(o,s);

form1.Canvas.TextOut(koor1+round((xy[8,1]-koor1)/2),koor2+round((xy[8,2]-koor2)/2),'X'+s);

form1.Canvas.MoveTo(koor1,koor2);

form1.Canvas.LineTo(xy[8,1],xy[8,2]);

prov1:=0;                    c[8,ver]:=1;

                         c[ver,8]:=1;

                    radiobutton8.Checked:=false;memo1.Text:='';BitBtn2Click(Sender);

                    re[o,1]:=8;

                    re[o,2]:=qwe;inc(o);BitBtn5Click(Sender);

end else begin          qwe:=8;

koor1:=xy[8,1];

koor2:=xy[8,2];

     ver:=8;prov1:=1; end;

end; 

procedure TForm1.RadioButton9Click(Sender: TObject);

begin        memo2.Text:='';

if prov1=1 then begin

str(o,s);

form1.Canvas.TextOut(koor1+round((xy[9,1]-koor1)/2),koor2+round((xy[9,2]-koor2)/2),'X'+s);

form1.Canvas.MoveTo(koor1,koor2);

form1.Canvas.LineTo(xy[9,1],xy[9,2]);

prov1:=0;                    c[9,ver]:=1;

                         c[ver,9]:=1;

                    radiobutton9.Checked:=false;memo1.Text:='';BitBtn2Click(Sender);

                    re[o,1]:=9;

                    re[o,2]:=qwe;inc(o);BitBtn5Click(Sender);

end else begin          qwe:=9;

koor1:=xy[9,1];

koor2:=xy[9,2];

     ver:=9;prov1:=1; end;

end;