Сергей Вячеславович Хвощев (глобус) - Игры на Делфи

TForm1.Image31Click(Sender: TObject);
begin
Image31.Opacity:=1;
cnt:=cnt+Image31.Tag;
label1.Text:=intTostr(cnt);
Image31.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;

procedure TForm1.Image32Click(Sender: TObject);
begin
Image32.Opacity:=1;
cnt:=cnt+Image32.Tag;
label1.Text:=intTostr(cnt);
Image32.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image33Click(Sender: TObject);
begin
Image33.Opacity:=1;
cnt:=cnt+Image33.Tag;
label1.Text:=intTostr(cnt);
Image33.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image34Click(Sender: TObject);
begin
Image34.Opacity:=1;
cnt:=cnt+Image34.Tag;
label1.Text:=intTostr(cnt);
Image34.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image35Click(Sender: TObject);
begin
Image35.Opacity:=1;
cnt:=cnt+Image35.Tag;
label1.Text:=intTostr(cnt);
Image35.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image36Click(Sender: TObject);
begin
Image36.Opacity:=1;
cnt:=cnt+Image36.Tag;
label1.Text:=intTostr(cnt);
Image36.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image37Click(Sender: TObject);
begin

Image37.Opacity:=1;
cnt:=cnt+Image37.Tag;
label1.Text:=intTostr(cnt);
Image37.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image38Click(Sender: TObject);
begin
Image38.Opacity:=1;
cnt:=cnt+Image38.Tag;
label1.Text:=intTostr(cnt);
Image38.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image39Click(Sender: TObject);
begin
Image39.Opacity:=1;
cnt:=cnt+Image39.Tag;
label1.Text:=intTostr(cnt);
Image39.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image40Click(Sender: TObject);
begin
Image40.Opacity:=1;
cnt:=cnt+Image40.Tag;
label1.Text:=intTostr(cnt);
Image40.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image41Click(Sender: TObject);
begin
Image41.Opacity:=1;
cnt:=cnt+Image41.Tag;
label1.Text:=intTostr(cnt);
Image41.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image42Click(Sender: TObject);
begin
Image42.Opacity:=1;
cnt:=cnt+Image42.Tag;
label1.Text:=intTostr(cnt);

Image42.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image43Click(Sender: TObject);
begin
Image43.Opacity:=1;
cnt:=cnt+Image43.Tag;
label1.Text:=intTostr(cnt);
Image43.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image44Click(Sender: TObject);
begin
Image44.Opacity:=1;
cnt:=cnt+Image44.Tag;
label1.Text:=intTostr(cnt);
Image44.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image45Click(Sender: TObject);
begin
Image45.Opacity:=1;
cnt:=cnt+Image45.Tag;
label1.Text:=intTostr(cnt);
Image45.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image46Click(Sender: TObject);
begin
Image46.Opacity:=1;
cnt:=cnt+Image46.Tag;
label1.Text:=intTostr(cnt);
Image46.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image47Click(Sender: TObject);
begin
Image47.Opacity:=1;
cnt:=cnt+Image47.Tag;
label1.Text:=intTostr(cnt);
Image47.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;

procedure TForm1.Image48Click(Sender: TObject);
begin
Image48.Opacity:=1;
cnt:=cnt+Image48.Tag;
label1.Text:=intTostr(cnt);
Image48.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image49Click(Sender: TObject);
begin
Image49.Opacity:=1;
cnt:=cnt+Image49.Tag;
label1.Text:=intTostr(cnt);
Image49.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
end.
8. Игра в города

Вводить название города а в ответ выберет город по последней букве. Есть
подсказка для просмотра всего списка. Список хранится в Лист боксе. Дополнять
список можно в режиме разработчика.
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
fin: string;
begin
Label1.Text:='Нет такого';
for i := 0 to ListBox1.Count - 1 do
begin
if Edit1.Text = ListBox1.Items[i] then
begin
fin := copy(ListBox1.Items[i], Length(ListBox1.Items[i]), 1);
ListBox1.Items.Delete(i);
break;
end;
end;
Label1.Text:='Нет на эту букву';
for j := 0 to ListBox1.Count - 1 do
begin
if fin = copy(ListBox1.Items[j], 1, 1) then
begin
Label1.Text := ListBox1.Items[j];
ListBox1.Items.Delete(j);
break;
end;
end;
end;
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
ListBox1.Visible:=CheckBox1.IsChecked;
end;

--">