Попробуй это. Както раз сталкивался с этой задачей. Естественно копипаст не поможет. Тут: 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 это количество элементов в массиве.