if(VarIsNull(atbl1->FieldByName(strTemp)->Value)) { dtpTemp->Checked = false; } else { dtpTemp->Date = atbl1->FieldByName(strTemp)->AsDateTime; dtpTemp->Checked = true; }