anchor.diff:  
   Type
     { Type Pointers }
  -  NullStringPtr = ^NullString;
     StringPtr = ^String;
   
     SinglePtr = ^Single;
  
positive.code: 
  Procedure TOdbcConnection.Connect;
  Var
    ConnectStrIn: String;
    ConnectStrOut: NullString;
    StringLength: SQLSMALLINT;
  
    Function ConnectStr: String;
  
negative.code:         Begin
            CType:= SQL_C_CHAR;
            If FBulkData Then
              BufferLength:= DefaultStringCount+1
            Else
              BufferLength:= ColumnSize+1;
            GetMem(SqlValue, BufferLength);
  