1program tbyte;
2
3{$mode delphi}
4
5uses
6  {$ifdef java}jdk15{$else}androidr14{$endif};
7
8function test: longint;
9var
10 a : longword;
11begin
12 a := 123456789;
13 result := JLInteger.Create(Byte(a)).intValue;
14end;
15
16begin
17  if test<>21 then
18    raise JLException.create('boe!');
19end.
20