{$ifdef fpc}{$mode objfpc}{$endif} var v : variant; begin Initialize(v); Finalize(v); end.