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