program test_variants2;

uses
variants;

procedure Proc1(V : Variant);
begin
   WriteLn('Proc1');
end;

procedure Proc2(V : OleVariant);
begin
   WriteLn('Proc2');
   Proc1(V);
   Proc1(V);
end;

const
   s: string =  'a';
begin
   Proc2(s);
   Proc2(s);
end.