[dartv]

Код:

type
  TTTN1 = class(TObject)
    private
      Fseries: String;
    function GerSeries: string;
    procedure SetSeries(const Value: string);
    public
      property series : string read GerSeries write SetSeries;

  end;

implementation

{ TTTN1 }

function TTTN1.GerSeries: string;
begin
  Result:=Fseries;
end;

procedure TTTN1.SetSeries(const Value: string);
begin
Fseries:=Value;
end;