fix test for delphi

--HG--
branch : trunks