Hello Nigel,
I have solved the problem now.
Instead of creating a font style variable I am using it like this:
FntName := TIETextLayer(lyr).Font.Name;
FntSize := TIETextLayer(lyr).Font.Size;
FntClr := TIETextLayer(lyr).Font.Color;
if fsBold in TIETextLayer(lyr).Font.Style then
TIA
Yogi Yang