var
  myBool: Boolean;

procedure TDemo_Form.FormCreate(Sender: TObject);
begin
  myBool := False;
  SetLabelText;
end;

procedure TDemo_Form.SetLabelText;
begin
  if (myBool) then
  begin
    Label1.Caption := 'myBool ist True';
  end
  else
  begin
    Label1.Caption := 'myBool ist nicht True';
  end;

  if (myBool = True) then
  begin
    Label2.Caption := 'myBool ist True';
  end
  else
  begin
    Label2.Caption := 'myBool ist nicht True';
  end;

  Label3.Caption := Format('myBool hat den "Wert" %d', [Integer(myBool)]);
end;

procedure TDemo_Form.SpinButton1DownClick(Sender: TObject);
begin
  if (myBool) then
    Dec(myBool);
  SetLabelText;
end;

procedure TDemo_Form.SpinButton1UpClick(Sender: TObject);
begin
  Inc(myBool);
  SetLabelText;
end;