Процедура FibDriver.Table.ReadName при попытке прочесть заголовки колонок выдает ошибку index out of range на строке
## Код:
```
...
     xsqlvar := S.VAL(FibApi.PtrXSQLVAR, S.ADR(xsqlda.sqlvar[column]));
     ...
```


Причина похоже в том, что в типе FibApi.XSQLDA поле sqlvar  определено как
ARRAY [untagged] 1 OF FibApi.XSQLVAR
Соответственно при column>0 срабатывает проверка выхода индекса за границы массива.

Фрагмент кода выдающего ошибку:

## Код:
```
PROCEDURE Tst*;
      VAR db: SqlDB.Database; res, i,n: INTEGER;
      si: ARRAY 10 OF CHAR;
      tb:SqlDB.Table;
      r:SqlDB.Row;
BEGIN
   SqlDB.OpenDatabase(protocol, id, password, datasource, SqlDB.sync, SqlDB.showErrors, db, res);
   IF res = 0 THEN
     Log.String('Open Base');
    ELSE
    Log.String('Error open Base = '); Log.Int(res);
    RETURN ;
    END;
    tb:=db.NewTable();
    tb.Exec("SELECT * FROM COUNTRY");
  
    tb.Read(SqlDB.names,r);
    FOR n:=0 TO LEN(r.fields)-1 DO
    Log.String(r.fields[n]); Log.String(" ")
    END; Log.Ln;
END Tst;
```
