[Redstason]

Четвертое:

Код:

type
 T1Obj = class
  FExtData : Extended;
  procedure SetData(AValue: Extended);overload;
 end;

 T2Obj = class(T1Obj)
  FIntData : Integer;
  procedure SetData(AValue: Integer); overload;
 end;