Создание класса

[Puhovoi]

Доброго времени суток!

Не могу разобраться, как создать свой класс.

Задача: добавить в него различные данные (пусть будет типа string), которые он бы обрабатывал и записывал в свое поле Document (тип TMemoryStream), а потом отдавал бы мне по запросу этот общий Document. Процедуру обработки, добавления и очистки себе представляю, а вот тело класса не могу написать, упустил что-то при изучении.

Как это можно реализовать?

Заранее спасибо за ответы.

[veniside]

type
  TDocKeeper = class(TObject)
  private
    f_storage: TMemoryStream;
    //
    function getText(): AnsiString;
    procedure setText(const value: AnsiString);
  public
    constructor Create();
    destructor Destroy(); override;
    //
    property Document: TMemoryStream read f_storage;
    //
    property text: AnsiString read getText write setText;
  end;


{ TDocKeeper }

// --  --
constructor TDocKeeper.Create();
begin
  f_storage := TMemoryStream.Create();
  //
  inherited;
end;

// --  --
destructor TDocKeeper.Destroy();
begin
  inherited;
  //
  FreeAndNil(f_storage);
end;

// --  --
function TDocKeeper.getText(): AnsiString;
begin
  if (0 < f_storage.Size) then begin
    //
    SetLength(result, f_storage.Size);
    f_storage.Read(result[1], f_storage.Size);
  end
  else
    result := '';
end;

// --  --
procedure TDocKeeper.setText(const value: AnsiString);
begin
  f_storage.Clear();
  if (0 < length(value)) then
    f_storage.Write(value[1], Length(value));
end;

типа того