ExCtrls package has a progress bar with a gradient (as an option): https://wiki.lazarus.freepascal.org/ExCtrls (this is not described on the wiki)