{$mode objfpc}
program MyFuckingUnit;

type TA = class (TObject)
protected
  FPrivateIntVar :Integer;
public
  constructor Create(p_int :Integer);
  procedure WriteHimself();
end;

type TB = class (TA)
public
  constructor Create(p_int :Integer);
end;


type TC = class (TB)
public
  constructor Create(p_int :Integer);
end;

var obj :  TA;
{ TA }

constructor TA.Create(p_int :Integer);
begin
  FPrivateIntVar := -1;
end;

procedure TA.WriteHimself;
begin
 WriteLn(FPrivateIntVar);
end;

{ TB }

constructor TB.Create(p_int :Integer);
begin
 inherited Create(p_int);
 FPrivateIntVar := p_int;
end;

{ TC }

constructor TC.Create(p_int :Integer);
begin
 inherited Create(p_int);
 FPrivateIntVar := p_int;
end;

begin
  obj := TC.Create(1);
  obj.WriteHimself(); //Ожидаем 1 увидеть, ибо в конструкторе "FPrivateIntVar := p_int", правильно? Запусти, и посмотри.
end.

Успешно time: 0 memory: 268 signal:0
1

ARK>>Чего?

The static initialization order fiasco is a very subtle and commonly misunderstood aspect of C++. Unfortunately it’s very hard to detect — the errors often occur before main() begins.

begin
  obj := TC.Create(1); //В этой строке вызовется TA.Create() на то и был рассчёт это и есть косяк наследования контрукторов
  obj.WriteHimself(); //Ожидаем 1 увидеть, ибо в конструкторе "FPrivateIntVar := p_int", правильно? Запусти, и посмотри.
end.

Ф>begin
Ф>  obj := TC.Create(1); //В этой строке вызовется TA.Create() на то и был рассчёт это и есть косяк наследования контрукторов
Ф>  obj.WriteHimself(); //Ожидаем 1 увидеть, ибо в конструкторе "FPrivateIntVar := p_int", правильно? Запусти, и посмотри.
Ф>end.
Ф>

  class A
  {
    public void Method()
    {
      Console.WriteLine(1);
    }
  }

  class B : A
  {
    public void Mеthod()
    {
      Console.WriteLine(-1);
    }
  }

  ...

  (new B).Method();    // напечатало 1, о ужос