Source position: tcl80.pp line 679
type TTclDriverGetOptionProc = function(
instanceData: Tcl_ClientData;
interp: PTcl_Interp;
optionName: PAnsiChar;
dsPtr: PTcl_DString
):Integer;