`TFireGLDevice`
pt		GetDeviceContext
		Create
		Destroy
		Clear

`TCustomDevice`
pt		GetDeviceContext
		Create
		Destroy
		Clear

CT Web help

CodeTyphon Studio