freepascal.compiler/tests/test/testv10.pp

uses
  variants;
var
  lVar : Variant;
begin
  lVar := VarAsType('',varEmpty);
end.