[[maeyanes]]

Hola...

Simplemente cada que "saques" un elemento del arreglo, corres los demás...

Esto podría ser más o menos así:

Código Delphi [-]
var
  I: Integer;
  J: Integer;

begin
  J := IndexElementoASacar;
  for I := J + 1 to 10 do
  begin
    Cadastro[J] := Cadastro[i];
    Inc(J)
  end

Otra forma es que uses un TList y simplemente al hacer TList.Delete(Index) los elementos se reordenan automáticamente...


Saludos...