More opengl and a sample :)

[VilleK]

You need a static member field in your class. This works at least in Delphi 2010.

 TTest = class
 private
  class var Instance : TTest;
 public
 end;