1:

MyInt := Ord(MyBool)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Rückwärts
  showmessage(inttostr(integer(checkbox1.Checked)));
  // Vorwärts
  if Boolean(integer(checkbox1.checked)) then
    showmessage('checked!');
end;

// Oder auch
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Boolean(24) then
    showmessage('checked!');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Function BoolToStr(vWert: Boolean): String;
Begin
    If (vWert) Then
        Result := 'TRUE'
    Else
        Result := 'FALSE';
End;

Function IntToBool(vWert: Integer): Boolean;
Begin
    Result := vWert <> 0;
End;