type
  TZapis = class
  public
    value: "не известный пока тип"
    constructor Create(typ: string);
  end;

  TSpisok = class
    name: string;
    zapis: TZapis;
  public
    constructor Create(nam, typ: string);
    property zap: TZapis read zapis write zapis;
  end;

  TZapString = class
    val: string;
    function Trim: string;
  end;

constructor TZapis.Create(typ: string);
begin
  if typ = 'string' then
    value := TZapString.Create;
end;

constructor TSpisok.Create(nam, typ: string);
begin
  name := nam;
  zapis := TZapis.Cpeate(typ);
end;

function TZapString.Trim: string;
begin
  Result := System.Trim(val);
end;

var
  spisok: TSpisok;

begin
  spisok := TSpisok.Create('новый', 'string');
  spisok.zap := '   какая то новая запись в списке   ';
  spisok.zap.Trim;
end;

type
  TZapis = class
  protected
    name: string;
  end;

type
  TStringZapis = class(TZapis)
    value: string;
  protected
    name: string;
  public
    property val: string read value write value;
  end;

type
  TSpisok = class
// временное решение с массивом, заменить
    spis: array of TZapis;
  public
    function NewZapis: TZapis; virtual; abstract;
  end;

type
  TSpis = class(TSpisok)
    typ: string;
  public
    function NewZapis: TZapis; override;
  end;

type
  TStringSpisok = class(TSpisok)
  public
    function NewZapis: TZapis; override;
  end;

.............................

function TSpis.NewZapis: TZapis;
var
  spisok: TSpisok;
  len: integer;

begin
  len := Length(spis);
  SetLength(spis, len + 1);

  try
    if typ = 'string' then
      begin
        spisok := TStringZapis.Create;
        spis[len] := spisok.NewZapis;
      end;
  finally
    spisok.Free;
  end;
end;

function TStringZaspis.NewZapis: TZapis;
begin
  Result := TStringZapis.Create;
end;

.............................

var
  spisok: TSpis;
  s, ClasNam: string;

begin
  spisok := TSpis.Create;
  spisok.typ := 'string';
  spisok.NewZapis;

  s := spisok.spis[0].val;    // вообще такого свойства нет!
  ClasNam := spisok.spis[0].ClassName;    // а вот класс правильный "TStringZapis"
end;