Delphi中如何通过Variants数组传递TObject对象?