alue :=Edit4.Text; .ActiveSheet.Range [ d21 ]. Value:=ComboBox7.Text; .ActiveSheet.Range [ E21 ]. Value:=ComboBox15.Text; .ActiveSheet.Range [ F21 raquo ;]. Value:=ComboBox8.Text; .ActiveSheet.Range [ G21 ]. Value:=ComboBox16.Text ;; Traschet_wrem.N1Click (Sender: TObject) ;. Click ;; Traschet_wrem.N2Click (Sender: TObject) ; .Click ;; Traschet_wrem.N3Click (Sender: TObject) ;;; Traschet_wrem.CheckBox1Click (Sender: TObject); CheckBox1.State of: ComboBox1.Text:= 0 raquo ;;;. Text:= 0 raquo ;; ; Traschet_wrem.CheckBox5Click (Sender: TObject); CheckBox1.State of: ComboBox17.Text:= 0 raquo ;;;. Text:= 0 raquo ;;; Traschet_wrem.CheckBox6Click (Sender: TObject); CheckBox1.State of: ComboBox21.Text:= 0 raquo ;;;. Text:= 0 raquo ;;; Traschet_wrem.CheckBox7Click (Sender: TObject); CheckBox1.State of: ComboBox25.Text:= 0 raquo ;;;. Text:= 0 raquo ;;; Traschet_wrem.CheckBox8Click (Sender: TObject); CheckBox1.State of: ComboBox29.Text:= 0 raquo ;;;. Text:= 0 raquo ;;; Traschet_wrem.CheckBox2Click (Sender: TObject); CheckBox1.State of: ComboBox2.Text:= 0 raquo ;;;. Text:= 0 raquo ;;; Traschet_wrem.CheckBox3Click (Sender: TObject); CheckBox1.State of: ComboBox5.Text:= 0 raquo ;; ; .Text:= 0 raquo ;;; Traschet_wrem.CheckBox4Click (Sender: TObject); CheckBox1.State of: ComboBox7.Text:= 0 raquo ;;;. Text:= 0 raquo ;;;.