anchor.diff:    BindNull(ParamByName(ParamName));
   End;
   
  -Procedure TOdbcStatement.BindNullStringByName(ParamName: String;
  -                                      Var ParamValue: NullString);
  -Begin
  -  BindNullString(ParamByName(ParamName), ParamValue);
  -End;
  -
   Procedure TOdbcStatement.BindStringByName(ParamName: String;
                                     Var ParamValue: String);
   Begin
  
positive.code:                              Var ParamValue: TMemoryStream);
  
      Procedure BindNulls(Param: SQLUSMALLINT);
      Procedure BindNullStrings(Param: SQLUSMALLINT;
                                Var ParamValue: Array Of NullString);
      Procedure BindSingles(Param: SQLUSMALLINT;
                            Var ParamValue: Array Of Single);
      Procedure BindDoubles(Param: SQLUSMALLINT;
  
negative.code: 
  Function TOdbcConnection.GetInfoString(InfoType: SQLUSMALLINT): String;
  Var
    Supported: PChar;
    StringLength: SQLSMALLINT;
  Begin
    Connect;
  
    Supported := odbcPChar(DefaultStringCount);
    try
      FRetCode:= SQLGetInfo(FHdbc, InfoType, Supported, DefaultStringSize, StringLength);
      If Not FEnv.Error.Success(FRetCode) Then
        Result:= ''
      Else
        Result:= fromOdbcPChar(Supported);
    finally
      FreeMem(supported);
    end;
  End;
  
  Function TOdbcConnection.GetInfoSmallint(InfoType: SQLUSMALLINT): SQLUSMALLINT;
  