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