本代码在:WinXpPack3+EmbarcaderoDelphi2010Version14.0.3513.24210火鸟数据库嵌入版FirebirdV2.1下测试通过。