how to enter binary number in Delphi

hello,

how can I write this code:
case a of
$01000100: begin end;
$01010100: begin end;
end;

etc where the nubmers are BINARY, not decimal, not hex, but binary, without
having to convert them myself (ie: the equivalent of the C 0b01001001)

cyrille


.