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

var test : Extended;
var test2 : Integer;
var test3 : Boolean;
begin
      //Test 1---------------------------------------
      test2 := SizeOf(Integer);
      test := IntPower(2, test2*8);
      test3 := dbConnection.TransactionsSupported; //das ist auf jeden Fall true
      //---------------------------------------------

      transDesc.TransactionID := Random(1999999999); //Test 2
      transDesc.IsolationLevel := xilREADCOMMITTED;
      dbConnection.StartTransaction(transDesc);					

1:

  transDesc.TransactionID := Random(Trunc(High(Cardinal) / 2));