Delphi - Changing active page's tab color and having it reset after clicking on another tab

Question

So in the program I\'m writing, I\'m using a TPageControl component with multiple tab sheets. I want to change the color of the tab of the sheet that is currently the active