Рефераты
 

Рефераты

реферат на тему   Главная
реферат на тему   Начертательная геометрия
реферат на тему   Оккультизм и уфология
реферат на тему   Педагогика
реферат на тему   Полиграфия
реферат на тему   Политология
реферат на тему   Программирование
      компьютеры и кибернетика
реферат на тему   Производство и технологии
реферат на тему   Социальная работа
реферат на тему   Начертательная геометрия
реферат на тему   Не сортированные
реферат на тему   Таможенная система
реферат на тему   Теория государства и права
реферат на тему   Арбитражный процесс
реферат на тему   Реклама
реферат на тему   Нотариат
реферат на тему   Менеджмент
реферат на тему   Металлургия
реферат на тему   Минералогия
реферат на тему   Москвоведение
 
 
 

Программа "Ход конем"

p align="left">Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image63MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image63.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image64MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image64.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image65MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image65.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image66MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image66.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image67MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image67.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image4.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image5.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image6.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image7.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image8.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image9Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image9.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image10Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image10.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image11Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image11.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image12Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image12.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image13Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image13.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image14Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image14.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image15Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image15.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image16Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image16.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image17Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image17.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image18Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image18.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image19Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image19.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image20Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image20.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image21Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image21.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image22Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image22.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image23Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image23.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image24Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image24.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image25Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image25.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image26Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image26.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image27Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image27.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image28Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image28.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image29Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image29.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image30Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image30.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image31Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image31.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image32Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image32.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image33Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image33.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image34Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image34.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image35Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image35.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image36Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image36.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image37Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image37.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image38Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image38.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image39Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image39.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image40Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image40.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image41Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image41.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image42Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image42.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image43Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image43.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image44Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image44.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image45Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image45.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image46Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image46.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image47Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image47.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image48Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image48.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image49Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image49.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image50Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image50.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image51Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image51.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image52Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image52.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image53Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image53.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image54Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image54.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image55Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image55.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image56Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image56.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image57Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image57.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image58Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image58.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image59Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image59.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image60Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image60.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image61Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image61.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image62Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image62.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image63Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image63.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image64Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image64.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image65Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image65.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image66Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image66.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image67Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image67.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.epEfButton3Click(Sender: TObject);

begin

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Panel1.Visible:=true;

Panel1.Enabled:=true;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;

end.

Страницы: 1, 2, 3, 4, 5, 6, 7


© 2010 BANKS OF РЕФЕРАТ