TSSPIInterface = class(TObject)

property FunctionTable: SecurityFunctionTableA;

constructor Create;

destructor Destroy; override;

function IsAvailable: Boolean;

class procedure RaiseIfError(aStatus: SECURITY_STATUS; aFunctionName: string);