Array ohne typ, aber wie ?

[mimi]

Hallo,
ich habe mehre array unterschiedlichen typs und nun möchte ich gerne eine funktion haben die mit allen typen was anfangen kann in etwa so:

procedure DeleteArrayItem(Liste: array of) // aber das geht ja leider nicht

hat jemmand eine idee ???

meine derzeitige delete funktion sieht so aus:

Delphi-Quellcode:

procedure TBO.DeleteBall(Index:Integer);
var
  i:Integer;
begin
  if Length(ball) -1 >= 1 then begin
    for i:=Index to HIGH(BALL) do
      BALL[i]:=BALL[i+1];
    SetLength(BALL,Length(ball)-1 );
  end;
end;