pascal: variantbug.pas