fpc/tests/webtbs/tw0761.pp

{ %CPU=i386 }
{$asmmode intel}
Type TFather = Object A : Integer; end;
     TSon = Object (TFather) B : Integer; end;

Var Son : TSon;

begin
  Asm
    mov  ax, Son.A
    mov  ax, Son.B
  end;
end.