TTclPanicProc

type TTclPanicProc = procedure(

  fmt: PChar;

  arg1: PChar;

  arg2: PChar;

  arg3: PChar;

  arg4: PChar;

  arg5: PChar;

  arg6: PChar;

  arg7: PChar;

  arg8: PChar

);