как увеличить максимальный размер структурных типов?

[bullvinkle]

Добрый день.
Хочу описать вот такой массив

type words = record
       number: word;
       word: string[20];
  end;
var  T:words;
     a: array [1..1500,1..9] of words;

Но мне пишет, что структура превышает максимальный размер.
Как мне увеличить допустимый размер?