BCB中map的使用例子