劳驾各位DELPHI高手帮指教一下,这段代码能否帮改进一下

procedure Tcb_ghs_zx.BitBtn1Click(Sender: TObject);
var
  i:integer;
begin
with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select dwqc,dwjc,yh,zh,sh,tel,fax,yb,wz,yx,dz,bz,pm from ghszl where 1=2');
    open;
  end;
//向数据库表GHSZL添加一条记录
adoquery1.InsertRecord([edit1.text,edit2.text,edit4.text,edit5.text,edit6.text,edit7.text,edit8.text,edit10.text,edit11.text,edit12.text,memo1.text,edit3.text]);
//清空所有TEDIT控件
for i:=0 to cb_ghs_zx.ComponentCount-1 do begin
  if cb_ghs_zx.Components[i] is tedit then
    tedit(cb_ghs_zx.Components[i]).Text:='';
    end;
memo1.Clear;
showmessage('供货单位信息添加成功');
edit1.SetFocus;
end;
感觉有点麻烦,有没有更好的办法