OCI-21560 connecting to Oracle (argument 10 is null, invalid, or out of range) about mormot HOT 4 CLOSED

// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
program TestMormotOracle;

{$APPTYPE CONSOLE}

{$R *.res}

uses
    System.SysUtils, SynDB, SynDBOracle, SynCommons;

procedure select;
var
    P: TSQLDBOracleConnectionProperties;
    It: ISQLDBRows;
    I: Integer;
begin
    P := TSQLDBOracleConnectionProperties.Create('93S010001AM_XE', '', 'pim', 'mypassword');
    P.RowsPrefetchSize := 1024 * 1024;
    P.BlobPrefetchSize := 1024 * 1024;

    It := P.Execute(UnicodeStringToUtf8('select * from ext_wert_xxx'), []);
    if It.ColumnCount > 0 then
    begin
        while It.Step do
        begin
            for I := 0 to It.ColumnCount - 1 do
            begin
                Write(', ');
                if It.ColumnNull(I) then
                    Write('null')
                else
                    Write(It.ColumnString(I));
            end;
            WriteLn;
        end;
    end;
    It := nil;

    FreeAndNil(P);
end;

var
    I, J: Integer;
begin
  try
    for J := 0 to 2 do
    begin
        select();
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.