Source position: tcl80.pp line 769
type TTclPanicProc = procedure(
fmt: PAnsiChar;
arg1: PAnsiChar;
arg2: PAnsiChar;
arg3: PAnsiChar;
arg4: PAnsiChar;
arg5: PAnsiChar;
arg6: PAnsiChar;
arg7: PAnsiChar;
arg8: PAnsiChar
);