[apoc]

Проблема в следующем.
Есть такая запись:

  TMyDBEvents = record
           Color: LongWord;
           ID: LongWord;
           Flags: LongWord;
           Title: AnsiString;
           Text: AnsiString;
           DateStart: TDateTime;
           DateType: LongWord;
           DateDays: LongWord;
           DateRemind: TDateTime;
  end;
  PMyDBEvents = ^TMyDBEvents;
  TMyDBase = class
  private
  ... ... ...

В результате вся проблемма в том что я не могу в динамический массив положить ни одной записи, т.к. длина AnsiString не фиксирована.
Как решить эту проблему, подскажите, срочно нужно.
Спасибо.