Static поле класса

[GenAcid]

Существуют ли в Delphi конструкции подобные следующей:

class class1 {
           // ...
           static class2* obj;
           // ...
        };

Для тех кто в Сях не силен: тут obj это поле общее для всех объектов класса class1.

[alexBlack]

В Developer Studio 2006 Reference приводится пример:

type
    TMyClass = class
    public
        class var // Introduce a block of class static fields.
            Red: Integer;
            Green: Integer;
            Blue: Integer;
        var // Ends the class var block.
    end;

The data stored in a class field are shared by all instances of the class and may be accessed by referring to the class or to a variable that represents an instance of the class.

Кроме того такое свойство легко реализуется:

type
  TClass1 = class
  private
     function getObj :TObject;
  public
     property obj : TObject read getObj;
  end;

const V:TObject = nil;  
function TClass1.getObj : TObject;
begin
   if V = nil then V := TObject.create;
   result := V;
end;

[GenAcid]

Принцип ясен, спасибо.