My solution consisted of finding the appropriate Style Object and changing the color value there. I have now produced a simple routine which achieves this function and in the process learnt a lot more about the style engine. When converting this code to FireMonkey I was unable to find a Color property for a TEdit Box. When a user puts unacceptable data into an edit box or fails to populate mandatory fields I like to be able to highlight these by changing the background to yellow. Some of the style parameters are also included in the object properties such as Font and FontFill (the new way to change the font color) but if the object code does not expose the parameter you need how do you change the style information dynamically at runtime? I came across this problem with a TEdit control. Head over and download the free premium styles for Firemonkey in Delphi 10 Berlin from Embarcadero CodeCentral.The new FireMonkey components have extensive design time functionality through the style engine so the presentation of components can be easily varied by the style editor. Now you should be able to see the new Styles on each Platform preview of the form.

Select each platform and then Open your premium style of choice for that platform. Add each platform to the Platform drop down in the Style Designer. Double click the TStyleCollectionItem.Resource field to load the Style Designer. Double click the TStyleCollection field and then add a new default TStyleCollectionItem. Drop a new TStyleBook component on your form and then set the TForm.StyleBook property to your TStyleBook component. Some styles have a semi transparent glass look and are meant to be used on a Form with a background color or image. The 11 styles are Copper, Copper Dark, Coral Crystal, Coral Dark, Diamond, Emerald Crystal, Emerald Dark, Jet, Radiant, Sterling, and Vapor. You can use the same look and feel for your app across all platforms solidifying your unique brand look and feel. The premium styles support all four platforms (Android, IOS, OSX, and Windows). The Style Designer itself has also been upgraded in this version. This new Delphi 10 style premium pack has 11 styles with the newest style called Copper Dark. Embarcadero has released the free Firemonkey premium style pack for Delphi 10 Berlin (probably supports C++Builder).

Delphi firemonkey styles