#39;Час гри:' + m + ':' + s ;. Text: = IntToStr (UpDown1.Position);. Text: = IntToStr (0);. Text: = IntToStr (0);. Text: ='';. Text: ='';; TForm1.Panel2Click (Sender : TObject);. Caption: =''; (f = True) and (v.Color = clLime) and
((v.Caption <= Edit4.Text) or (Edit4.Text ='')) then: = t + 1;. Panels.Items [1]. Text: = 'Кількість -во кроків: '+ IntToStr (t); (v);. Text: = IntToStr (StrToInt (Edit1.Text) + 1); (v, Panel5, Edit1);. Text: = v.Caption; (p, Panel3, Edit5, Edit2); (p, Panel4, Edit6, Edit3);;. Color: = clBlue;. Caption: = 'Виберіть диск для переміщення';. Caption: = 'Невірний хід';; TForm1.Panel3Click (Sender : TObject);. Caption: =''; (f = True) and (v.Color = clLime) and
((v.Caption <= Edit5.Text) or (Edit5.Text ='')) then: = t + 1,. Panels.Items [1]. Text: = 'Кількість -во кроків: '+ IntToStr (t); (v);. Text: = IntToStr (StrToInt (Edit2.Text) + 1); (v, Panel7, Edit2);. Text: = v.Caption; (p, Panel2, Edit4, Edit1); (p, Panel4, Edit6, Edit3);;. Color: = clBlue;. Caption: = 'Виберіть диск для переміщення';. Caption: = 'Хід невірний';; TForm1.Panel4Click ( Sender: TObject);. Caption: =''; (f = True) and (v.Color = clLime) and
((v.Caption <= Edit6.Text) or (Edit6.Text ='')) then: = t + 1;. Panels.Items [1]. Text: = 'Кількість -во шагов: '+ IntToStr (t), (v),. Text: = IntToStr (StrToInt (Edit3.Text) + 1); (v, Panel6, Edit3),. Text: = v.Caption, (p, Panel2, Edit4, Edit1); (p, Panel3, Edit5, Edit2);;. Color: = clBlue;. Caption: = 'Виберіть диск для переміщення';. Caption: = 'Хід невірний';; TForm1.Pos ( Panel: TPanel); (Panel.Left = StrToInt (FloatToStr (90 - Panel.Width/2))) then.Text: = IntToStr (StrToInt (Edit1.Text) - 1); (Panel.Left = StrToInt (FloatToStr ( 300 - Panel.Width/2))) then.Text: = IntToStr (StrToInt (Edit2.Text) - 1); (Panel.Left = StrToInt (FloatToStr (510 - Panel.Width/2))) then.Text: = IntToStr (StrToInt (Edit3.Text) - 1);; TForm1.Sel (Pan1: TObject; Pan: Pin; Ed1, Ed2, Ed3: TEdit); ((Pan1 as TPanel). Caption = Ed1.Text) or
((Pan1 as TPanel). Caption = Ed2.Text) or
((Pan1 as TPanel). Caption = Ed3.Text) theni: = 1 to UpDown1.Position do [i]. Color: = clBlue; (Pan1 as TPanel)
. Color: = clLime;. Caption: = 'Перемістіть диск';;; TForm1.EndOfGame; (Edit2.Text = IntToStr (UpDown1.Position)) or
(Edit3.Text = IntToStr (UpDown1.Position)) then.Enabled: = False;. Visible: = True;. Visible: = False;. Enabled: = False;;; TForm1.Hig (Pan: Pin; Tow: TPanel; Ed1, Ed2: TEdit); StrToInt (Ed2.Text) = 1 theni: = 1 to UpDown1.Position do (Tow.Left = Pan [i]. Left + Pan [i]. Width/2 - 5) then.Text: = Pan [i]. Caption; StrToInt (Ed2.Text)> 1 theni: = UpDown1.Position downto 2 doj: = UpDown1.Position - 1...
