TImage32.ReduceOpacity

procedure ReduceOpacity(opacity: Byte); overload;

procedure ReduceOpacity(opacity: Byte; rec: TRect); overload;