一、新建VCL工程加入TAdapterBingSource控件 二、定一个TPerson类  MyPerson : TPerson; TPerson = classprivateFAge: Integer;FLastname: string;FFirstname: string;publicconstructor Create(const Firstname, La