Динамический массив обьектов

[Celestia]

Здравствуйте уважаемые друзья! Прошу помощи в решении задачи. Задача в общем то простая, но мой уставший мозг (сутки не сплю уже, работа горит) отказывается о чём то думать Суть в том что я создаю менеджер объектов и никак не могу добиться нормальной его работы, дело в работе с массивом я полагаю

TMytestClass = class(TObject)
 a,b,c,d: integer;
 ID: string;
end;
  
TObjectList = object
 private
  Objects: array of TMytestClass;
 public
  Function AddMyTestClass: integer;
  Function GetMytestClass(Index: integer;ID: string): TMytestClass;
end;

Var
  Form1: TForm1;
  ObjectList: TObjectList;

implementation

{$R *.dfm}

{$REGION ' <-- Реализация: TObjectList -----]'}

Function TObjectList.AddMyTestClass: integer;
begin
 SetLength(Objects,Length(Objects)+1);
 Result:=Length(Objects);
end;

Function TObjectList.GetMytestClass(Index: integer;ID: string): TMytestClass;
var
 i: integer;
begin
// если поиск по ID то игнорим значение индекса и ищем по ID
if not (ID='') then
begin
 for I := 0 to length(Objects) - 1 do
  begin
   if ((not (Objects[i]=nil)) and ((Objects[i] as TMytestClass).ID=ID)) then
    begin
     Result:=Objects[i];
     exit;
    end;
  end;
end else
// иначе, возвращаем по индексу
begin
 Result:=Objects[Index];
 exit;
end;
end;

{$ENDREGION}

procedure TForm1.Button1Click(Sender: TObject);
var
 Z: integer;
begin
Z:=RotorObjectList.AddMyTestClass;
RotorObjectList.GetMytestEngineClass(Z,'').ID:='OK1';
Showmessage(Inttostr(Z));
Showmessage(RotorObjectList.GetMytestEngineClass(Z,'').ID);
end;

Заранее всем спасибо кто откликнется!

[Miha85193]

Не работает, потому, как забываем вызывать конструктор TMytestClass!

procedure TForm1.Button1Click(Sender: TObject);
var
 Z: integer;
begin
Z:=RotorObjectList.AddMyTestClass;
RotorObjectList.GetMytestEngineClass(Z,'').ID:='OK1'; // Здесь вылетает AV
Showmessage(Inttostr(Z));
Showmessage(RotorObjectList.GetMytestEngineClass(Z,'').ID);
end;

Хоть память и подвержена фрагментированию, ну да ладно...

Function TObjectList.AddMyTestClass: integer;
begin
 SetLength(Objects,Length(Objects)+1);
 // Чтоб не вылетало AV, вызываем конструктор!
 Objects[Length(Objects) - 1] := TMytestClass.Create;
 Result:=Length(Objects);
end;

Хотя, не понимаю, зачем TMytestClass = class(TObject)? Если можно

TMytestClass = record
 a,b,c,d: integer;
 ID: string;
end;

и конструктор вызывать не надо ;-)