procedure Form1.button1_Click(sender: Object; e: EventArgs);

var

C : String;

C2: String;

begin

C:=textBox1.Text;

C2:=('01491625');

if c=c2 then

begin

label1.Visible:=true;

label2.Visible:=true;

label3.Visible:=true;

label4.Visible:=true;

label5.Visible:=true;

label6.Visible:=true;

label7.Visible:=true;

label8.Visible:=true;

label9.Visible:=true;

label10.Visible:=true;

label11.Visible:=true;

label12.Visible:=true;

label13.Visible:=true;

label14.Visible:=true;

label15.Visible:=true;

label16.Visible:=true;

label17.Visible:=true;

label18.Visible:=true;

label19.Visible:=true;

label20.Visible:=true;

label21.Visible:=true;

label22.Visible:=true;

label23.Visible:=true;

label24.Visible:=true;

label25.Visible:=true;

label26.Visible:=true;

label27.Visible:=true;

label28.Visible:=true;

label29.Visible:=true;

label30.Visible:=true;

label31.Visible:=true;

label32.Visible:=true;

label33.Visible:=true;

label34.Visible:=true;

label35.Visible:=true;

label36.Visible:=true;

label37.Visible:=true;

label38.Visible:=true;

label39.Visible:=true;

label40.Visible:=true;

label41.Visible:=true;

label42.Visible:=true;

label43.Visible:=true;

end

else

begin

MessageBox.Show(' До побачення.') ;

Close;

end;

end;