unit uchlp12; {$ifdef fpc} {$mode delphi} {$endif} interface type {$M+} TTest = class private function GetTest6: Integer; strict private Test1: Integer; private Test2: Integer; strict protected Test3: Integer; protected Test4: Integer; public Test5: Integer; published property Test6: Integer read GetTest6; end; {$M-} implementation function TTest.GetTest6: Integer; begin Result := 0; end; end.