if a = 1  then
  begin
    a:=a-1;
    powerImg.Visible := True;
  end;


/////

a : integer = 1;