[fpc-pascal] WriteStr and int-range types (eg TColor)

[Martin]

I know WriteStr can be used to get the names of enum: WriteStr(s, enumOne)

But should/could it also work on sub-range types of int?
Like
   TGraphicsColor = -$7FFFFFFF-1..$7FFFFFFF;

or even
TFoo = type integer;