with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.add('insert into cp(cpbh,cpgg) values (:cpbh,:cpgg)');
   parameters.parambyname('cpbh').Value:=edit1.text;
   parameters.parambyname('cpgg').Value:=datetimetostr(now);
   execsql;
  end;