* fixed test, don't remember the use of it :/

tests/tbs/tb0410.pp

@@ -1,4 +1,7 @@
 { %version=1.1 }
+uses
+   variants;
+
 procedure p1(f : single);
   begin
   end;
@@ -9,12 +12,11 @@ procedure p2(l : longint);
 
 var
    v : variant;
-   i : imyinterface;
    l : longint;
 
 begin
+   v:=1;
    p1(v);
    p2(v);
    l:=v;
 end.
-