Source position: tcl80.pp line 705
type TTclObjCmdProc = function(
clientData: Tcl_ClientData;
interp: PTcl_Interp;
objc: Integer;
PPObj: PPTcl_Obj
):Integer;