Hi Mark,
You did not do anything wrong. The demo was simply not updated for the 6.5.0 and 7.0.0 releases. Fortunately, it is easy to fix. For the UsingSystemStyle error add Self as a parameter:
if UsingSystemStyle( Self ) then …
After fixing the first one, you will get a couple more. Then you will get an error with the call to GetGradientPanelFrameColor. Again, you can simply add Self as the first parameter:
C := GetGradientPanelFrameColor( Self, FCurrentGCS )
Ray