[jachguate]

Como ya dijo Fede, esto puede ser pesado para el procesador

Código Delphi [-]
procedure QuitarElemento(const IndiceAQuitar Integer; var Arreglo: Array of integer);
var
  I: Integer;
begin
  for I := IndiceAQuitar to high(Arreglo) - 1 do
    Arreglo[i] := Arreglo[I + 1];
  SetLength(Arreglo, Length(Arreglo) - 1];
end;

Hasta luego.