unit uexrtti16; {$mode objfpc} interface Type {$RTTI EXPLICIT PROPERTIES([vcPublic]) FIELDS([vcPublic]) METHODS([vcPublic])} TBase = Class(TObject) end; implementation end.