Source position: tcl80.pp line 619
type Tcl_HashCreateProc = function(
tablePtr: PTcl_HashTable;
key: PAnsiChar;
newPtr: PInteger
):PTcl_HashEntry;