fpcsrc/tests/webtbs/tw2809.pp


1
2
3
4
5
6
7
8
9
10

{ %version=1.1 }

{$ifdef fpc}{$mode objfpc}{$endif}

var
  v : variant;
begin
  Initialize(v);
  Finalize(v);
end.