To fix it, change the two lines around like this:
DrawPos.X := Left - Indent; Clipped := (I >= FFixedCols) and (DrawPos.X + Width < GetFixedWidth);
Yes, this works in run time. Thank you Deonvn. I can still see the problem in design time, but the important thing is that the run time is fixed.
Kind regards
PhilW.