tostr.pas : test of vartostr