How can I set font color in cell (half text other color) in delphi 7 and with MS Excel 2007+ ?

Example:
[![enter image description here](https://i.stack.imgur.com/XGwPW.png)](https://i.stack.imgur.com/XGwPW.png)