[KOOL]

При удалении(Destroy) компонента вылетает ошибка EInvalidPointer на строке AnswersA := nil; AnswersB := nil;(ну или FreeMemory) все испробовал, не исправляется... Может, структура неправильная? Деструктор стандартный

Код:

  TTestAnswerA = record
    Answered : boolean;
    AnswerSingle : TQValue;
    AnswerMulti : Cardinal;
  end;  

  TTestAnswerB = record
    Answered : boolean;
    Answer : shortstring;
  end;


  TTestingData = class(TComponent)
    private
      AnswersA : array of TTestAnswerA;
      AnswersB : array of TTestAnswerB;
   ...