[dartv]

Хай Пиплы!
Создал Свой Класс

Код:

type
  TTTN1 = class(TObject)
    function GetDateNNT: TDate;
    procedure SetDateNNT(ttn1_date:TDate);
    property ttn1_date: TDate read GetDateNNT write SetDateNNT;

    function GetSeriesNNT: String;
    procedure SetSeriesNNT(ttn1_series:String);
    property ttn1_series: String read GetSeriesNNT write SetSeriesNNT;

  private
  public
    procedure MessageSH();
  end;

Передаю в свойства ttn1_date и ttn1_series Значения:

Код:

TTN1:=TTTN1.Create;
  TTN1.ttn1_series:=ttn1_seriesE.Text;
  TTN1.ttn1_number:=ttn1_numberE.Text;
  TTN1.ttn1_date:=ttn1_dateE.Date;

Значения ttn1_series в итоге пустое, а ttn1_date По умолчанию 30.12.1899

Методы Read и Write с пустыми операторами, что я делаю не так, почему в свойства класса не передаются параметры?