arkadaşlar delphide oyun yapmam lazım final odevim yardımcı olursanız
sevinirim mesala "tenis" olabilir . şimdiden teş.bende pasaparola oyun kodları var ama problemli galiba bi bakardanız iyi olur.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Mask;

type
TForm1 = class(TForm)
Shape1: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Shape8: TShape;
Shape9: TShape;
Shape10: TShape;
Shape11: TShape;
Shape12: TShape;
Shape13: TShape;
Shape14: TShape;
Shape15: TShape;
Shape16: TShape;
Shape17: TShape;
Shape18: TShape;
Shape19: TShape;
Shape20: TShape;
Shape21: TShape;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Shape22: TShape;
Shape23: TShape;
Shape24: TShape;
Label10: TLabel;
Label22: TLabel;
BitBtn2: TBitBtn;
Timer1: TTimer;
Edit1: TEdit;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
BitBtn3: TBitBtn;
Label23: TLabel;
BitBtn1: TBitBtn;
procedure Timer1Timer(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private

public

end;

var
Form1: TForm1;
t:integer;
s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15 ,s16,s17,s18,s19,s20,s21,s22:string;
implementation



procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=inttostr(strtoint(edit1.text)-1);
if edit1.Text='0' then edit1.Visible:=false;
if edit1.Text='0' then bitbtn2.Visible:=false;
if edit1.Text='0' then bitbtn3.Visible:=false;
if edit1.text='0' then label23.visible:=false;
if edit1.text='0' then label24.visible:=true;
if edit1.text='0' then maskedit1.visible:=false;
if edit1.text='0' then maskedit2.visible:=false;
if edit1.text='0' then label25.visible:=false;
if edit1.text='0' then label26.visible:=false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
timer1.Enabled:=true;
t:=t+1;
s1:='Gazi kitabının yazarı?';
s2:='Mavi rengi goren tek hayvan?';
s3:='islamiyet oncesi arabistandaki karanlık doneme verilen ad?';
s4:='Şiir ve sozu birden bire icine doğduğu gibi soyleme işi?';
s5:='Unlu felsefeci platona arap yarımadasında verilen isim?';
s6:='AB nin bu yılki sorumlu ulkesi?';
s7:='19. yy"da avrupada yapılan sanatsal eşyalara verilen ad?';
s8:='Doku Bilimi?';
s9:='Uzak?';
s10:='Kuzeybatıdan esen ruzgar?';
s11:='Parayı ilk bulan uygarlık?';
s12:='Donen cark ve tekerlek gibi şeylerin ortasından gecen ok?';
s13:='Para bilimi?';
s14:='Yer kureyi kaplayan gaz katmanı?';
s15:='Geminin baş tarafı?';
s16:='RNA icerisinde bulunan beş karbonlu şeker?';
s17:='Hucre bilimi?';
s18:='Hititlerde kralice?';
s19:='Muslumanların uc buyuk kutsal savaşından ucuncusu?';
s20:='Ağır başlı?';
s21:='Denizcilikte kuzey?';
s22:='Mitolojide yıldırım tanrısı?';
if t=1 then begin maskedit1.Text:=s1;end;
if t=2 then begin
if maskedit2.text='attila ilhan' then begin
shape1.brush.color:=clgreen;
label1.Color:=clgreen;
end else begin
shape1.brush.color:=clred;
label1.Color:=clred;end;
maskedit2.text:=";
end;
if t=2 then begin maskedit1.Text:=s2;end;
if t=3 then begin
if maskedit2.text='baykuş' then begin
shape4.brush.color:=clgreen;
label2.Color:=clgreen;
end else begin
shape4.brush.color:=clred;
label2.Color:=clred;end;
maskedit2.text:=";
end;
if t=3 then begin maskedit1.Text:=s3;end;
if t=4 then begin
if maskedit2.text='cahiliye donemi' then begin
shape5.brush.color:=clgreen;
label3.Color:=clgreen;
end else begin
shape5.brush.color:=clred;
label3.Color:=clred;end;
maskedit2.text:=";
end;
if t=4 then begin maskedit1.Text:=s4;end;
if t=5 then begin
if maskedit2.text='doğaclama' then begin
shape6.brush.color:=clgreen;
label4.Color:=clgreen;
end else begin
shape6.brush.color:=clred;
label4.Color:=clred;end;
maskedit2.text:=";
end;
if t=5 then begin maskedit1.Text:=s5;end;
if t=6 then begin
if maskedit2.text='eflatun' then begin
shape7.brush.color:=clgreen;
label5.Color:=clgreen;
end else begin
shape7.brush.color:=clred;
label5.Color:=clred;end;
maskedit2.text:=";
end;
if t=6 then begin maskedit1.Text:=s6;end;
if t=7 then begin
if maskedit2.text='finlandiya' then begin
shape8.brush.color:=clgreen;
label6.Color:=clgreen;
end else begin
shape8.brush.color:=clred;
label6.Color:=clred;end;
maskedit2.text:=";
end;
if t=7 then begin maskedit1.Text:=s7;end;
if t=8 then begin
if maskedit2.text='gotik' then begin
shape9.brush.color:=clgreen;
label7.Color:=clgreen;
end else begin
shape9.brush.color:=clred;
label7.Color:=clred;
end;maskedit2.text:=";
end;
if t=8 then begin maskedit1.Text:=s8;end;
if t=9 then begin
if maskedit2.text='histoloji' then begin
shape10.brush.color:=clgreen;
label8.Color:=clgreen;
end else begin
shape10.brush.color:=clred;
label8.Color:=clred;
end;maskedit2.text:=";
end;
if t=9 then begin maskedit1.Text:=s9;end;
if t=10 then begin
if maskedit2.text='ırak' then begin
shape11.brush.color:=clgreen;
label9.Color:=clgreen;
end else begin
shape11.brush.color:=clred;
label9.Color:=clred;
end;maskedit2.text:=";
end;
if t=10 then begin maskedit1.Text:=s10;end;
if t=11 then begin
if maskedit2.text='karayel' then begin
shape12.brush.color:=clgreen;
label11.Color:=clgreen;
end else begin
shape12.brush.color:=clred;
label11.Color:=clred;
end;maskedit2.text:=";
end;
if t=11 then begin maskedit1.Text:=s11;end;
if t=12 then begin
if maskedit2.text='lidyalılar' then begin
shape21.brush.color:=clgreen;
label12.Color:=clgreen;
end else begin
shape21.brush.color:=clred;
label12.Color:=clred;
end;maskedit2.text:=";
end;
if t=12 then begin maskedit1.Text:=s12;end;
if t=13 then begin
if maskedit2.text='mihver' then begin
shape13.brush.color:=clgreen;
label13.Color:=clgreen;
end else begin
shape13.brush.color:=clred;
label13.Color:=clred;
end;maskedit2.text:=";
end;
if t=13 then begin maskedit1.Text:=s13;end;
if t=14 then begin
if maskedit2.text='numizmatik' then begin
shape14.brush.color:=clgreen;
label14.Color:=clgreen;
end else begin
shape14.brush.color:=clred;
label14.Color:=clred;
end;maskedit2.text:=";
end;
if t=14 then begin maskedit1.Text:=s14;end;
if t=15 then begin
if maskedit2.text='ozon tabakası' then begin
shape15.brush.color:=clgreen;
label15.Color:=clgreen;
end else begin
shape15.brush.color:=clred;
label15.Color:=clred;
end;maskedit2.text:=";
end;
if t=15 then begin maskedit1.Text:=s15;end;
if t=16 then begin
if maskedit2.text='pruva' then begin
shape16.brush.color:=clgreen;
label16.Color:=clgreen;
end else begin
shape16.brush.color:=clred;
label16.Color:=clred;
end;maskedit2.text:=";
end;
if t=16 then begin maskedit1.Text:=s16;end;
if t=17 then begin
if maskedit2.text='riboz' then begin
shape17.brush.color:=clgreen;
label17.Color:=clgreen;
end else begin
shape17.brush.color:=clred;
label17.Color:=clred;
end;maskedit2.text:=";
end;
if t=17 then begin maskedit1.Text:=s17;end;
if t=18 then begin
if maskedit2.text='sitoloji' then begin
shape18.brush.color:=clgreen;
label18.Color:=clgreen;
end else begin
shape18.brush.color:=clred;
label18.Color:=clred;
end;maskedit2.text:=";
end;
if t=18 then begin maskedit1.Text:=s18;end;
if t=19 then begin
if maskedit2.text='tavananna' then begin
shape19.brush.color:=clgreen;
label19.Color:=clgreen;
end else begin
shape19.brush.color:=clred;
label19.Color:=clred;
end;maskedit2.text:=";
end;
if t=19 then begin maskedit1.Text:=s19;end;
if t=20 then begin
if maskedit2.text='uhut' then begin
shape20.brush.color:=clgreen;
label20.Color:=clgreen;
end else begin
shape20.brush.color:=clred;
label20.Color:=clred;
end;maskedit2.text:=";
end;
if t=20 then begin maskedit1.Text:=s20;end;
if t=21 then begin
if maskedit2.text='vakur' then begin
shape22.brush.color:=clgreen;
label21.Color:=clgreen;
end else begin
shape22.brush.color:=clred;
label21.Color:=clred;
end;maskedit2.text:=";
end;
if t=21 then begin maskedit1.Text:=s21;end;
if t=22 then begin
if maskedit2.text='yıldız' then begin
shape23.brush.color:=clgreen;
label10.Color:=clgreen;
end else begin
shape23.brush.color:=clred;
label10.Color:=clred;
end;maskedit2.text:=";
end;
if t=22 then begin maskedit1.Text:=s22;end;
if t=23 then begin
if maskedit2.text='zeus' then begin
shape24.brush.color:=clgreen;
label22.Color:=clgreen;
end else begin
shape24.brush.color:=clred;
label22.Color:=clred;
end;maskedit2.text:=";
end;
if (t=23) and (label1.color=clyellow) then maskedit1.Text:=s1;
if (t=24) then begin
if maskedit2.text='attila ilhan' then begin
shape1.brush.color:=clgreen;
label1.Color:=clgreen;
end;maskedit2.text:=";
if (label1.color=clyellow) then begin
shape1.brush.color:=clred;
label1.Color:=clred;end;
end;
if (t=24) and (label2.color=clyellow) then maskedit1.Text:=s2;
if (t=25) then begin
if maskedit2.text='baykuş' then begin
shape4.brush.color:=clgreen;
label2.Color:=clgreen;
end;maskedit2.text:=";
if (label2.color=clyellow) then begin
shape4.brush.color:=clred;
label2.Color:=clred;end;
end;
if (t=25) and (label3.color=clyellow) then maskedit1.Text:=s3;
if (t=26) then begin
if maskedit2.text='cahiliye donemi' then begin
shape5.brush.color:=clgreen;
label3.Color:=clgreen;
end;maskedit2.text:=";
if (label3.color=clyellow) then begin
shape5.brush.color:=clred;
label3.Color:=clred;end;
end;
if (t=26) and (label4.color=clyellow) then maskedit1.Text:=s4;
if (t=27) then begin
if maskedit2.text='doğaclama' then begin
shape6.brush.color:=clgreen;
label4.Color:=clgreen;
end;maskedit2.text:=";
if (label4.color=clyellow) then begin
shape6.brush.color:=clred;
label4.Color:=clred;end;
end;
if (t=27) and (label5.color=clyellow) then maskedit1.Text:=s5;
if (t=28) then begin
if maskedit2.text='eflatun' then begin
shape7.brush.color:=clgreen;
label5.Color:=clgreen;
end;maskedit2.text:=";
if (label5.color=clyellow) then begin
shape7.brush.color:=clred;
label5.Color:=clred;end;
end;
if (t=28) and (label6.color=clyellow) then maskedit1.Text:=s6;
if (t=29) then begin
if maskedit2.text='finlandiya' then begin
shape8.brush.color:=clgreen;
label6.Color:=clgreen;
end;maskedit2.text:=";
if (label6.color=clyellow) then begin
shape8.brush.color:=clred;
label6.Color:=clred;end;
end;
if (t=29) and (label7.color=clyellow) then maskedit1.Text:=s7;
if (t=30) then begin
if maskedit2.text='gotik' then begin
shape9.brush.color:=clgreen;
label7.Color:=clgreen;
end;maskedit2.text:=";
if (label7.color=clyellow) then begin
shape9.brush.color:=clred;
label7.Color:=clred;end;
end;
if (t=30) and (label8.color=clyellow) then maskedit1.Text:=s8;
if (t=31) then begin
if maskedit2.text='histoloji' then begin
shape10.brush.color:=clgreen;
label8.Color:=clgreen;
end;maskedit2.text:=";
if (label8.color=clyellow) then begin
shape10.brush.color:=clred;
label8.Color:=clred;end;
end;
if (t=31) and (label9.color=clyellow) then maskedit1.Text:=s9;
if (t=32) then begin
if maskedit2.text='ırak' then begin
shape11.brush.color:=clgreen;
label9.Color:=clgreen;
end;maskedit2.text:=";
if (label9.color=clyellow) then begin
shape11.brush.color:=clred;
label9.Color:=clred;end;
end;
if (t=32) and (label11.color=clyellow) then maskedit1.Text:=s10;
if (t=33) then begin
if maskedit2.text='karayel' then begin
shape12.brush.color:=clgreen;
label11.Color:=clgreen;
end;maskedit2.text:=";
if (label11.color=clyellow) then begin
shape12.brush.color:=clred;
label11.Color:=clred;end;
end;
if (t=33) and (label12.color=clyellow) then maskedit1.Text:=s11;
if (t=34) then begin
if maskedit2.text='lidyalılar' then begin
shape21.brush.color:=clgreen;
label12.Color:=clgreen;
end;maskedit2.text:=";
if (label12.color=clyellow) then begin
shape21.brush.color:=clred;
label12.Color:=clred;end;
end;
if (t=34) and (label13.color=clyellow) then maskedit1.Text:=s12;
if (t=35) then begin
if maskedit2.text='mihver' then begin
shape13.brush.color:=clgreen;
label13.Color:=clgreen;
end;maskedit2.text:=";
if (label13.color=clyellow) then begin
shape13.brush.color:=clred;
label13.Color:=clred;end;
end;
if (t=35) and (label14.color=clyellow) then maskedit1.Text:=s13;
if (t=36) then begin
if maskedit2.text='numizmatik' then begin
shape14.brush.color:=clgreen;
label14.Color:=clgreen;
end;maskedit2.text:=";
if (label14.color=clyellow) then begin
shape14.brush.color:=clred;
label14.Color:=clred;end;
end;
if (t=35) and (label15.color=clyellow) then maskedit1.Text:=s14;
if (t=36) then begin
if maskedit2.text='ozon tabakası' then begin
shape15.brush.color:=clgreen;
label15.Color:=clgreen;
end;maskedit2.text:=";
if (label15.color=clyellow) then begin
shape15.brush.color:=clred;
label15.Color:=clred;end;
end;
if (t=36) and (label16.color=clyellow) then maskedit1.Text:=s15;
if (t=37) then begin
if maskedit2.text='pruva' then begin
shape16.brush.color:=clgreen;
label16.Color:=clgreen;
end;maskedit2.text:=";
if (label16.color=clyellow) then begin
shape16.brush.color:=clred;
label16.Color:=clred;end;
end;
if (t=37) and (label17.color=clyellow) then maskedit1.Text:=s16;
if (t=38) then begin
if maskedit2.text='riboz' then begin
shape17.brush.color:=clgreen;
label17.Color:=clgreen;
end;maskedit2.text:=";
if (label17.color=clyellow) then begin
shape17.brush.color:=clred;
label17.Color:=clred;end;
end;
if (t=38) and (label18.color=clyellow) then maskedit1.Text:=s17;
if (t=39) then begin
if maskedit2.text='sitoloji' then begin
shape18.brush.color:=clgreen;
label18.Color:=clgreen;
end;maskedit2.text:=";
if (label18.color=clyellow) then begin
shape18.brush.color:=clred;
label18.Color:=clred;end;
end;
if (t=39) and (label19.color=clyellow) then maskedit1.Text:=s18;
if (t=40) then begin
if maskedit2.text='tavananna' then begin
shape19.brush.color:=clgreen;
label19.Color:=clgreen;
end;maskedit2.text:=";
if (label19.color=clyellow) then begin
shape19.brush.color:=clred;
label19.Color:=clred;end;
end;
if (t=40) and (label20.color=clyellow) then maskedit1.Text:=s19;
if (t=41) then begin
if maskedit2.text='uhut' then begin
shape20.brush.color:=clgreen;
label20.Color:=clgreen;
end;maskedit2.text:=";
if (label20.color=clyellow) then begin
shape20.brush.color:=clred;
label20.Color:=clred;end;
end;
if (t=41) and (label21.color=clyellow) then maskedit1.Text:=s20;
if (t=42) then begin
if maskedit2.text='vakur' then begin
shape22.brush.color:=clgreen;
label21.Color:=clgreen;
end;maskedit2.text:=";
if (label21.color=clyellow) then begin
shape22.brush.color:=clred;
label21.Color:=clred;end;
end;
if (t=42) and (label10.color=clyellow) then maskedit1.Text:=s21;
if (t=43) then begin
if maskedit2.text='yıldız' then begin
shape23.brush.color:=clgreen;
label10.Color:=clgreen;
end;maskedit2.text:=";
if (label10.color=clyellow) then begin
shape23.brush.color:=clred;
label10.Color:=clred;end;
end;
if (t=43) and (label22.color=clyellow) then maskedit1.Text:=s22;
if (t=44) then begin
if maskedit2.text='zeus' then begin
shape24.brush.color:=clgreen;
label22.Color:=clgreen;
end;maskedit2.text:=";
if (label22.color=clyellow) then begin
shape24.brush.color:=clred;
label22.Color:=clred;end;
end;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
t:=t+1;
if t=1 then begin maskedit1.Text:=s1;end;
if (t=2) and (MaskEdit2.Text=") then begin
shape1.brush.color:=clyellow;
label1.Color:=clyellow;
end;
if t=2 then begin maskedit1.Text:=s2;end;
if (t=3) and (MaskEdit2.Text=")then begin
shape4.brush.color:=clyellow;
label2.Color:=clyellow;
end;
if t=3 then begin maskedit1.Text:=s3;end;
if (t=4) and (MaskEdit2.Text=")then begin
shape5.brush.color:=clyellow;
label3.Color:=clyellow;
end;
if t=4 then begin maskedit1.Text:=s4;end;
if (t=5) and (MaskEdit2.Text=")then begin
shape6.brush.color:=clyellow;
label4.Color:=clyellow;
end;
if t=5 then begin maskedit1.Text:=s5;end;
if (t=6) and (MaskEdit2.Text=")then begin
shape7.brush.color:=clyellow;
label5.Color:=clyellow;
end;
if t=6 then begin maskedit1.Text:=s6;end;
if (t=7) and (MaskEdit2.Text=")then begin
shape8.brush.color:=clyellow;
label6.Color:=clyellow;
end;
if t=7 then begin maskedit1.Text:=s7;end;
if (t=8) and (MaskEdit2.Text=")then begin
shape9.brush.color:=clyellow;
label7.Color:=clyellow;
end;
if t=8 then begin maskedit1.Text:=s8;end;
if (t=9) and (MaskEdit2.Text=")then begin
shape10.brush.color:=clyellow;
label8.Color:=clyellow;
end;
if t=9 then begin maskedit1.Text:=s9;end;
if (t=10) and (MaskEdit2.Text=")then begin
shape11.brush.color:=clyellow;
label9.Color:=clyellow;
end;
if t=10 then begin maskedit1.Text:=s10;end;
if (t=11) and (MaskEdit2.Text=")then begin
shape12.brush.color:=clyellow;
label11.Color:=clyellow;
end;
if t=11 then begin maskedit1.Text:=s11;end;
if (t=12) and (MaskEdit2.Text=")then begin
shape21.brush.color:=clyellow;
label12.Color:=clyellow;
end;
if t=12 then begin maskedit1.Text:=s12;end;
if (t=13) and (MaskEdit2.Text=")then begin
shape13.brush.color:=clyellow;
label13.Color:=clyellow;
end;
if t=13 then begin maskedit1.Text:=s13;end;
if (t=14) and (MaskEdit2.Text=")then begin
shape14.brush.color:=clyellow;
label14.Color:=clyellow;
end;
if t=14 then begin maskedit1.Text:=s14;end;
if (t=15) and (MaskEdit2.Text=")then begin
shape15.brush.color:=clyellow;
label15.Color:=clyellow;
end;
if t=15 then begin maskedit1.Text:=s15;end;
if (t=16) and (MaskEdit2.Text=")then begin
shape16.brush.color:=clyellow;
label16.Color:=clyellow;
end;
if t=16 then begin maskedit1.Text:=s16;end;
if (t=17) and (MaskEdit2.Text=")then begin
shape17.brush.color:=clyellow;
label17.Color:=clyellow;
end;
if t=17 then begin maskedit1.Text:=s17;end;
if (t=18) and (MaskEdit2.Text=")then begin
shape18.brush.color:=clyellow;
label18.Color:=clyellow;
end;
if t=18 then begin maskedit1.Text:=s18;end;
if (t=19) and (MaskEdit2.Text=")then begin
shape19.brush.color:=clyellow;
label19.Color:=clyellow;
end;
if t=19 then begin maskedit1.Text:=s19;end;
if (t=20) and (MaskEdit2.Text=")then begin
shape20.brush.color:=clyellow;
label20.Color:=clyellow;
end;
if t=20 then begin maskedit1.Text:=s20;end;
if (t=21) and (MaskEdit2.Text=")then begin
shape22.brush.color:=clyellow;
label21.Color:=clyellow;
end;
if t=21 then begin maskedit1.Text:=s21;end;
if (t=22) and (MaskEdit2.Text=")then begin
shape23.brush.color:=clyellow;
label10.Color:=clyellow;
end;
if t=22 then begin maskedit1.Text:=s22;end;
if (t=23) and (MaskEdit2.Text=")then begin
shape24.brush.color:=clyellow;
label22.Color:=clyellow;
end;

if (t=23) and (label1.color=clyellow) then maskedit1.Text:=s1;
if (t=24) then begin
if maskedit2.text=" then begin
shape1.brush.color:=clred;
label1.Color:=clred;end;end;
if (t=24) and (label2.color=clyellow) then maskedit1.Text:=s2;
if (t=25) then begin
if maskedit2.text=" then begin
shape4.brush.color:=clred;
label2.Color:=clred;end;end;
if (t=25) and (label3.color=clyellow) then maskedit1.Text:=s3;
if (t=26) then begin
if maskedit2.text=" then begin
shape5.brush.color:=clred;
label3.Color:=clred;end;end;
if (t=26) and (label4.color=clyellow) then maskedit1.Text:=s4;
if (t=27) then begin
if maskedit2.text=" then begin
shape6.brush.color:=clred;
label4.Color:=clred;end;end;
if (t=27) and (label5.color=clyellow) then maskedit1.Text:=s5;
if (t=28) then begin
if maskedit2.text=" then begin
shape7.brush.color:=clred;
label5.Color:=clred;end;end;
if (t=28) and (label6.color=clyellow) then maskedit1.Text:=s6;
if (t=29) then begin
if maskedit2.text=" then begin
shape8.brush.color:=clred;
label6.Color:=clred;end;end;
if (t=29) and (label7.color=clyellow) then maskedit1.Text:=s7;
if (t=30) then begin
if maskedit2.text=" then begin
shape9.brush.color:=clred;
label7.Color:=clred;end;end;
if (t=30) and (label8.color=clyellow) then maskedit1.Text:=s8;
if (t=31) then begin
if maskedit2.text=" then begin
shape10.brush.color:=clred;
label8.Color:=clred;end;end;
if (t=31) and (label9.color=clyellow) then maskedit1.Text:=s9;
if (t=32) then begin
if maskedit2.text=" then begin
shape11.brush.color:=clred;
label9.Color:=clred;end;end;
if (t=32) and (label11.color=clyellow) then maskedit1.Text:=s10;
if (t=33) then begin
if maskedit2.text=" then begin
shape12.brush.color:=clred;
label11.Color:=clred;end;end;
if (t=33) and (label12.color=clyellow) then maskedit1.Text:=s11;
if (t=34) then begin
if maskedit2.text=" then begin
shape21.brush.color:=clred;
label12.Color:=clred;end;end;
if (t=34) and (label13.color=clyellow) then maskedit1.Text:=s12;
if (t=35) then begin
if maskedit2.text=" then begin
shape13.brush.color:=clred;
label13.Color:=clred;end;end;
if (t=35) and (label14.color=clyellow) then maskedit1.Text:=s13;
if (t=36) then begin
if maskedit2.text=" then begin
shape14.brush.color:=clred;
label14.Color:=clred;end;end;
if (t=35) and (label15.color=clyellow) then maskedit1.Text:=s14;
if (t=36) then begin
if maskedit2.text=" then begin
shape15.brush.color:=clred;
label15.Color:=clred;end;end;
if (t=36) and (label16.color=clyellow) then maskedit1.Text:=s15;
if (t=37) then begin
if maskedit2.text=" then begin
shape16.brush.color:=clred;
label16.Color:=clred;end;end;
if (t=37) and (label17.color=clyellow) then maskedit1.Text:=s16;
if (t=38) then begin
if maskedit2.text=" then begin
shape17.brush.color:=clred;
label17.Color:=clred;end;end;
if (t=38) and (label18.color=clyellow) then maskedit1.Text:=s17;
if (t=39) then begin
if maskedit2.text=" then begin
shape18.brush.color:=clred;
label18.Color:=clred;end;end;
if (t=39) and (label19.color=clyellow) then maskedit1.Text:=s18;
if (t=40) then begin
if maskedit2.text=" then begin
shape19.brush.color:=clred;
label19.Color:=clred;end;end;
if (t=40) and (label20.color=clyellow) then maskedit1.Text:=s19;
if (t=41) then begin
if maskedit2.text=" then begin
shape20.brush.color:=clred;
label20.Color:=clred;end;end;
if (t=41) and (label21.color=clyellow) then maskedit1.Text:=s20;
if (t=42) then begin
if maskedit2.text=" then begin
shape22.brush.color:=clred;
label21.Color:=clred;end;end;
if (t=42) and (label10.color=clyellow) then maskedit1.Text:=s21;
if (t=43) then begin
if maskedit2.text=" then begin
shape23.brush.color:=clred;
label10.Color:=clred;end;end;
if (t=43) and (label22.color=clyellow) then maskedit1.Text:=s22;
if (t=44) then begin
if maskedit2.text=" then begin
shape24.brush.color:=clred;
label22.Color:=clred;end;end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.
__________________