А я обычно пишу ADDRESS = INTEGER и дальше использую ADDRESS.  Например, так
## Код:
```
TYPE 
  ADDRESS = INTEGER;
  PtrUint8 = POINTER TO ARRAY [untagged] OF SHORTCHAR;

  SDL_RWops = RECORD [untagged] 
    seek  : PROCEDURE ( VAR context: SDL_RWops; offset, whence: INTEGER): INTEGER;
    read  : PROCEDURE ( VAR context: SDL_RWops; ptr: ADDRESS; size, maxnum:INTEGER ): INTEGER;
    write : PROCEDURE ( VAR context: SDL_RWops; ptr: ADDRESS; size, num: INTEGER ): INTEGER;
    close : PROCEDURE ( VAR context: SDL_RWops): INTEGER;
    type  : INTEGER;
    hidden:  RECORD [union] 
      win32io: RECORD append: INTEGER; h : ADDRESS END;
      stdio  : RECORD autoclose: INTEGER; fp : ADDRESS END;
      mem    : RECORD base, here, stop: PtrUint8 END;
      unknown: RECORD data1: ADDRESS END;
    END;
  END;
```
