Source position: tcl80.pp line 642
type TTclCmdProc = function(
clientData: Tcl_ClientData;
interp: PTcl_Interp;
argc: Integer;
argv: Tcl_Argv
):Integer;