Delphi: Создание динамического с record, который содержит AnsiString

[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 не фиксирована.
Как решить эту проблему, подскажите, срочно нужно.
Спасибо.

[ЕЖ]

Можно просто динамически выделять в памяти обекты типа TMyDBEvents и класть указатели на них в TList.

[apoc]

Спасибо...

Не поверишь была такая мысль.... тут с коллегой утро общались и он предложил именно такой вариант... Но как то геморно...

Пока ждал ответ... переписал в функции выделения памяти следующую строчку:

GetMem(NP, Index * sizeof(TMyDBEvents));

на

NP := AllocMem(Index * sizeof(TMyDBEvents));

И все заработало... незнаю как и почему но он стал нормально ложить данные... и все пока пашет... бредок...

Щас буду тестить с реальным массивом данных... понаблюдаю...