[jusalex]

Пытаюсь в TList вставить следующий класс и получаю access violetion.
слетает на SetAll туда передаю String
Где я накололся?

Код:

unit Unit2;

interface

 type
   TSentens = Class
     private
       stAll         : String;
     published
       procedure SetAll(const Value: String);
       function GetAll() : String;
   end;

   implementation

   procedure TSentens.SetAll(const Value: String);
    begin
       self.stAll := Value;
    end;

   function TSentens.GetAll;
     begin
      Result := self.stAll;
   end;
end.