b:=b+1;
  if b=1 then Label1.Visible:=True;
  if b=2 then Label1.Visible:=False;
  if b=3 then Label1.Visible:=True;
  if b=4 then Label1.Visible:=False;
  if b=5 then begin
              Label1.Visible:=True;
              Label2.Visible:=True;

  end;

  if b=6 then begin
              Label1.Visible:=True;
              Label2.Visible:=False;

  end;

  if b=7 then begin
              Label1.Visible:=True;
              Label2.Visible:=True;

  end;

  if b=8 then begin
              Label1.Visible:=True;
              Label2.Visible:=False;

  end;

  if b=9 then begin
              Label1.Visible:=True;
              Label2.Visible:=True;
              Label3.Visible:=True;
  end;

   if b=10 then begin
              Label1.Visible:=True;
              Label2.Visible:=True;
              Label3.Visible:=False;
  end;
    if b=11 then begin
              Label1.Visible:=True;
              Label2.Visible:=True;
              Label3.Visible:=True;
  end;
     if b=12 then begin
              Label1.Visible:=True;
              Label2.Visible:=True;
              Label3.Visible:=False;
  end;
      if b=13 then begin
              Label1.Visible:=True;
              Label2.Visible:=True;
              Label3.Visible:=True;
  end;
       if b=14 then begin
              Label1.Visible:=False;
              Label2.Visible:=False;
              Label3.Visible:=False;
  end;
        if b=15 then begin
              Label1.Visible:=True;
              Label2.Visible:=True;
              Label3.Visible:=True;
  end;