Source position: errh.inc line 9
procedure verrx(
__status: Integer;
__format: Pchar;
Arg: Pointer
);