{$MODE OBJFPC} program Test; type generic TTest = class procedure TestProc; end; procedure TTest.TestProc; procedure InnerTestProc; begin end; begin end; begin end.