// Полный код Модуля.
// -----------------------------------------------------------
// Вы должны поместить этот код в модуль с именем Unit1 и с формой
// названную Form1, которая имеет событие OnCreate названное FormCreate.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  // Строка содержащая запись
  TString = string[10];

  // Определение класс контейнера
  TWords = class
  private
    wordCount  : Integer;
    wordsStart : Pointer;
    function Get(Index: Integer): string;
  public
    property GetWord[Index : Integer] : string read Get;
  published
    constructor Create(count : integer);
    Destructor  Destroy; override;
  end;

  // Сам класс формы
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


// Конструктор TWords - формирует массив слова
constructor TWords.Create(count: integer);
var
  i : Integer;
  wordsList  : ^TString;

begin
  // Получите памяти для 'count' строк
  GetMem(wordsStart, count*SizeOf(TString));

  // Заполнение этого списка
  wordsList := wordsStart;
  wordCount := count;

  for i := 1 to count do
  begin
    wordsList^ := 'Word '+IntToStr(i);
    Inc(wordsList);
  end;
end;

// Деструктор TWords - освобождает память
destructor TWords.Destroy;
begin
  // Освобождение памяти, если она получена
  if wordsStart <> nil
  then FreeMem(wordsStart);

  // Всегда вызывайте родительский деструктор после выполнения вашего собственного кода
  inherited;
end;

// GetWord функция чтения свойства
function TWords.Get(Index: Integer): string;
var
  wordsList  : ^TString;

begin
  // Чтение слова по данному индексу, если в диапазоне
  if (Index >= 1) and (Index <= wordcount)
  then
  begin
    wordsList := wordsStart;
    Inc(wordsList, Index-1);
    Result := wordsList^;
  end;
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
var
  words : TWords;

begin
  // Создание объекта TWords
  words := TWords.Create(4);

  // Теперь показываем 2-ое слово в этом объекте
  ShowMessage('2-ое слово = '+words.GetWord[2]);
end;

end.