self.cboSex.ItemIndex:=cboSex.Items.IndexOf(FieldByName('Sex').AsString);
self.dtpBirthday.Date:=FieldByName('Birthday').Value;
self.cboWork.ItemIndex:=cboWork.Items.IndexOf(FieldByName('WorkCaption').AsString);
self.cboRelation.ItemIndex:=cboRelation.Items.IndexOf(FieldByName('RelationCaption').AsString);