救！

unit Unit5;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, Mask, ExtCtrls, DB, ADODB, ComCtrls;type
  Tcomm_khinput = class(TForm)
    Panel1: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit7: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    comm_input1_save: TButton;
    comm_input1_clear: TButton;
    comm_input_dele: TButton;
    DBNavigator1: TDBNavigator;
    Label12: TLabel;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DateTimePicker1: TDateTimePicker;
    procedure comm_input1_saveClick(Sender: TObject);
    procedure comm_input1_clearClick(Sender: TObject);
    procedure comm_input_deleClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  comm_khinput: Tcomm_khinput;implementation
 uses unit1;
{$R *.dfm}
procedure Tcomm_khinput.comm_input1_saveClick(Sender: TObject);
begin
adoquery1.active:=true;
adoquery1.edit;
 datetimepicker1.Visible:=true;
 dbedit7.Text:=datetostr(datetimepicker1.DateTime);
 adoquery1.append;
 end;procedure Tcomm_khinput.comm_input1_clearClick(Sender: TObject);
begin
 dbedit1.Clear;
 dbedit2.Clear;
 dbedit3.Clear;
 dbedit4.Clear;
 dbedit7.Clear;
 dbcombobox1.Clear;
 dbcombobox2.Clear;
 dbcombobox3.Clear;
end;procedure Tcomm_khinput.comm_input_deleClick(Sender: TObject);
begin
 adoquery1.Active:=true;
 adoquery1.Edit;
 if messagedlg('确实要删除此记录吗？',mtwarning,[mbyes,mbno],0)=mryes then
  adoquery1.Delete;
end;procedure Tcomm_khinput.FormCreate(Sender: TObject);
begin
 datetimepicker1.Visible:=false;
end;end.
这是 UNIT5.PAS 中的内容，我看不出哪出问题了，帮帮忙啦，困扰我一下午了！