Source position: errh.inc line 7
procedure verr(
__status: Integer;
__format: PAnsiChar;
Arg: Pointer
);