Wert eines TVarRec einer Array of const zuweisen

[Tesla2k]

Ich will eine Wert aus einer array of const wieder als Parameter eines anderen array of const verwenden.
Ungefähr so:

Delphi-Quellcode:

procedure a(x:array of const)
begin
end;

procedure b(x:array of const)
begin
  a([x[0]])
end;

Das erzeugt allerdings ein compiliert Fehler.

Eine Lösung wäre jedes mal ne case anweisung auf VType

Delphi-Quellcode:

case x[0].VType of
  vtInteger: a([x[0].VInteger]);
  vtString: a([x[0].VString]);
  ...
end;

Da ich das allerdings sehr oft machen müsste wollte ich Fragen, ob es da evtl eine andere Lösung gibt.

Vielen Dank