ok_nodescription_printing
type TClass1 = class(TObject)
MyField: Integer;
procedure MyMethod;
property MyProperty read FMyProperty;