Ошибка чтения памяти

[Khayzenberg]

Доброго времи суток! Я работаю с выдилением памяти и вот следующая функция которая этим занимается.
Сущетсвует 11 элементов в котрых храниться соответствующая информация. В функцию передаем параметр который и будет указывать сколько выделять памяти и под какой елемент(первый case). Вторая выборка возвращает указатель(type ANBDElement=pointer) на елемент который хранится в памяти. При выполнении возникает исключительная ситуация которая говорит что произошла ошибка чтения памяти. Подскажите плиз в чем проблема, или что я неправильно написал. И кстати при пошаговой копмиляции эта ошибка возникает на последнем end; Ниже листинг самой функции:

function NewElement(const KeyElement:ANBDKeyElement):ANBDElement;
var elDisIndexes:pANBDDisIndexes;
    elHeading:pANBDHeading;
    elUser:pANBDUser;
    elConnecting:pANBDConnecting;
    elTable:pANBDTable;
    elField:pANBDField;
    elCellOfString:pANBDCellOfString;
    elCellOfCardinal:pANBDCellOfCardinal;
    elCellOfFloat:pANBDCellOfFloat;
    elCellOfDateTime:pANBDCellOfDateTime;
    elCellOfBoolean:pANBDCellOfBoolean;
begin
 elDisIndexes:=nil; elHeading:=nil; elUser:=nil; elConnecting:=nil; elTable:=nil; elField:=nil;
 elCellOfString:=nil; elCellOfCardinal:=nil; elCellOfFloat:=nil; elCellOfDateTime:=nil; elCellOfBoolean:=nil;
 result:=nil;
 //Робимо вибірку
 case KeyElement of
  keDisIndexes: New(elDisIndexes);
  keHeading: New(elHeading);
  keUser: New(elUser);
  keConnecting: New(elConnecting);
  keTable: New(elTable);
  keField: New(elField);
  keCellOfString: New(elCellOfString);
  keCellOfCardinal: New(elCellOfCardinal);
  keCellOfFloat: New(elCellOfFloat);
  keCellOfDateTime: New(elCellOfDateTime);
  keCellOfBoolean: New(elCellOfBoolean);
 end;
 case KeyElement of
  keDisIndexes: result:=elDisIndexes;
  keHeading: result:=elHeading;
  keUser: result:=elUser;
  keConnecting: result:=elConnecting;
  keTable: result:=elTable;
  keField: result:=elField;
  keCellOfString: result:=elCellOfString;
  keCellOfCardinal: result:=elCellOfCardinal;
  keCellOfFloat: result:=elCellOfFloat;
  keCellOfDateTime: result:=elCellOfDateTime;
  keCellOfBoolean: result:=elCellOfBoolean;
 end;
end;