[fpc-pascal] Access inherited^2

[Zaher Dirkey]

try (but i not like it )

begin
  TFirst(Self).Create(A, B, 0);
end;