сдвиг в массиве состоящим из сложных объектов

A: array[1..10] of TMyObject

move (A[4],A[3],sizeof)

var 
ALabel : array [1..maxobj] of TStaticText; 
......
......
// процедура удаления
Procedure TTableForm.DelObj(ID:integer);
begin
  if ALabel[ID]=nil then exit; // не удалять если объект не существует
  for j:=ID to Count-1 do      // ID-элемент для удаления
    begin
    ALabel[j]:=ALabel[j+1];   // копируем на его место следующий <ЭТА СТРОКА НЕ РАБОТАЕТ>
    end;
  FreeAndNil(ALabel[Count]); // удаляем последний
  Count:=Count-1; // количество меньше на 1
end;

Procedure TTableForm.DelObj(ID:integer);
begin
  if ALabel[ID]=nil then exit; // не удалять если объект не существует
  ALabel[ID].free;
  dec(count);
  for j:=ID to Count do      // ID-элемент для удаления
    ALabel[j]:=ALabel[j+1];   // копируем на его место следующий
end;

var 
ALabel : array [1..maxobj] of TStaticText; 
......
......
// процедура удаления
Procedure TTableForm.DelObj(ID:integer);
var
  i : Integer;
begin
  //Если неверный индекс - выходим.
  if (ID < Low(ALabel)) or (ID > Count) then Exit;
  //Удаляем из памяти экземпляр под индексом ID.
  FreeAndNil( ALabel[ID] );
  //Выполняем сдвиг элементов.
  for i := ID to Count - 1 do begin ALabel[i] := ALabel[i + 1];
  //Теперь количество элементов стало на 1 меньше.
  Dec(Count);
end;

var 
ALabel : array [1..maxobj] of TStaticText; 
......
......
// процедура удаления
Procedure TTableForm.DelObj(ID:integer);
begin
  //Здесь не надо выходить - сказано удалить, значит надо этот элемент удалить из массива.
  //Если ссылка пустая, то мы просто не будем удалять экземпляр из памяти, так как его нет.
  //Но сам элемент мы должны удалить из массива.
  if ALabel[ID]=nil then exit;
  
  //Здесь, сам по себе, сдвиг выполнен правильно. Но при этом мы потеряли ссылку на тот объект,
  //который нам надо удалить.
  for j:=ID to Count-1 do
    begin
    ALabel[j]:=ALabel[j+1];
    end;
 
  //Вот здесь удаляется из памяти совсем не тот объект. Нам надо удалить объект, на который
  //ссылается элемент массива с индексом ID. А здесь вместо этого удаляется из памяти
  //объект, на который ссылается последний элемент массива. Кроме этого, после сдвига
  //в последнем и предпоследнем элементах массива мы имеем одинаковые ссылки, которые
  //ссылаются на один и тот же объект. И если мы сейчас удалим из памяти объект, на который
  //ссылается последний элемент массива, то ссылка, которая хранится в предпоследнем
  //элементе массива окажется битой - т. е. она будет ссылаться на объект, которого уже
  //не существует - т. к., он только что нами же был удалён.
  FreeAndNil(ALabel[Count]);
 
  //Эта строка верная:
  Count:=Count-1;
end;