Source position: tcl80.pp line 783
function Tcl_CreateCommand(
interp: PTcl_Interp;
name: PChar;
cmdProc: TTclCmdProc;
clientData: Tcl_ClientData;
deleteProc: TTclCmdDeleteProc
):pTcl_Command;