var
  BoolVar: BOOL;
  BooleanVar: Boolean;
begin
  MsgBox(Format('Boolean size: %dB; BOOL size: %dB', [SizeOf(BooleanVar), SizeOf(BoolVar)]), mbInformation, MB_OK);
end;