<div dir="ltr"><div dir="ltr"><div><div>type</div><div>  _PrivateData = class</div><div>    private type THidden = record Name: string; end;</div><div>  end;</div></div><div><br></div><div>... and later in the implementation section of the same unit ...</div><div><br></div><div>var H: _PrivateData.THidden; begin H.Name := 'Hello'; end;</div><div class="gmail_quote"></div></div></div>