Is there any code that parses the Graphic Mode?

Why do you need to parse it?

Print "Available graphics modes:"

For mode:TGraphicsMode=EachIn GraphicsModes()

	Print mode.width+","+mode.height+","+mode.depth+","+mode.hertz

Next

Its all split up anyway in a TGraphicsMode objects fields.

Dabz