1 procedure TfrmOptions.chk_RNAV_DISABLEClick(Sender: TObject); 2 begin 3 if not chk_RNAV_DISABLE.Focused then Exit; 4 5 if chk_RNAV_DISABLE.Checked then 6 begin 7 chk_RNAV_ENABLED.Checked:=false; 8 chk_RNAV_DEF.Checked:=False; 9 end else 10 begin 11 chk_RNAV_DEF.Checked:=true; 12 chk_RNAV_ENABLED.Checked:=false; 13 end; 14 end;