function IdSslUCTTimeDecode(UCTtime: PASN1_UTCTIME; Var year: Word; Var month: Word; Var day: Word; Var hour: Word; Var min: Word; Var sec: Word; Var tz_hour: Integer; Var tz_min: Integer): Integer;