[:S.p.a.m.]

Попробуй это. Както раз сталкивался с этой задачей. Естественно копипаст не поможет. Тут: Items массив.

Код:

procedure TModels.Delete(index:integer);
begin
  Items[index].Free;
  move(Items[index+1], Items[index], (Count-index)*sizeof(Items[index]));
  SetLength(Items, count-1);
  dec(Count);
end;

Items[index].Free; тебе врятли пригодится. Ну а Count это количество элементов в массиве.