Source position: tcl80.pp line 773
type TTclEventDeleteProc = function(
evPtr: PTcl_Event;
clientData: Tcl_ClientData
):Integer;