[jusalex]

сам допетрил:

Код:

unit Unit2;

interface

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

   end;

   implementation
   constructor TSentens.Create(Text: String);
 begin
   stAll         := Text;
 end;

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

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

и еще плюс вызывал не правильно и передавал в TList не вызвав Create