private
  Scope: PScope;

property Scope: PScope read GetScope write SetScope;
...
...
function THIScope.GetScope:PScope;
begin
  Result := PScope(Control);
end;

procedure THIScope.SetScope(ctl:PScope);
begin
  Control := ctl;
end;