[Legion2003]

Если заранее не известно, какого типа параметры (Integer, Float etc.), можно использовать функцию VarArrayOf

procedure SendEvent(Event: String; const Params: Variant);
var i: Integer;
begin
  for i := Low(Params) to High(Params) do;
end;
.......
SendEvent('Bla-Bla', VarArrayOf([1,2,3,4]);