你看看
for I := 0 to L.Count - 1 do
begin
lPersonMember := L[I] as TPersonMember;
lPositionID := GetPositionStr(lPersonMember);
PI := cbPosition.Items.AddObject(lPositionID, lPersonMember);
看看是不是这个 GetPositionStr 错了
if (ItemIndex = -1) and (FPersonMemberURL <> '') and
lPersonMember.BizURL.Equals(FPersonMemberURL) then
ItemIndex := PI;
end;