freepascal.compiler/tests/webtbf/tw3969.pp

{ %fail }
{$Mode Delphi}
{$R-,X+,V-}
uses crt, uw3969;

var
  myobj: testobj;

begin
  clrscr;
  myobj.init;
  writeln(myobj.getvar);
  myobj.setvar('antonio');
  myobj.myvar := 'pippo';
  writeln(myobj.myvar);
  myobj.done;
end.