拓展的异常类

type
  EPCIDError = class(Exception)
  public
    constructor Create(const Msg: string);
  end;

constructor EPCIDError.Create(const Msg: string);
begin
  inherited Create(CPCIDError + Msg + ' - ' + SysErrorMessage(GetLastError));
end;