Getter/Setter mit unterschiedlicher Sichtbarkeit möglich?

[omata]

Oder mittels zweier Methoden:

Delphi-Quellcode:

type
  TTest = class
  private
    FProp: Integer;
  protected
    procedure Prop(Value:Integer); overload;
  public
    function Prop:Integer; overload;
  end;

:
:

{ TTest }

procedure TTest.Prop(Value: Integer);
begin
  FProp:=Value;
end;

function TTest.Prop: Integer;
begin
  Result:=FProp;
end;

MfG
Thorsten