[maui]

hola amigo sanxpue

el error me lo da en el procedimiento almacenado:

Código Delphi [-]
procedure TFrmManproductos.BtnGuardarClick(Sender: TObject);
begin
FrmManproductos.StoredProdAdd.Params[0].AsInteger:= StrToInt(Edit1.Text);
FrmManproductos.StoredProdAdd.Params[1].AsInteger:= StrToInt(cboxFamily.Text);
FrmManproductos.StoredProdAdd.Params[2].AsInteger:= StrToInt(cboxProvee.Text);
FrmManproductos.StoredProdAdd.Params[3].AsString:= Edit2.Text;
FrmManproductos.StoredProdAdd.Params[4].AsString:= Edit3.Text;
FrmManproductos.StoredProdAdd.Params[5].AsInteger:= StrToInt(Edit4.Text);
FrmManproductos.StoredProdAdd.Params[6].AsString:= Edit5.Text;
FrmManproductos.StoredProdAdd.Params[7].AsInteger:= StrToInt(Edit6.Text);
FrmManproductos.StoredProdAdd.Params[8].AsInteger:= StrToInt(Edit7.Text);
FrmManproductos.StoredProdAdd.Params[9].AsInteger:= StrToInt(Edit8.Text);
FrmManproductos.StoredProdAdd.Params[10].AsInteger:= StrToInt(Edit9.Text);
//FrmManproductos.StoredProductAdd.Params[11].AsString:= DBImage1.Text;
FrmManproductos.StoredProdAdd.ExecProc;
 Limpia_Datos; /aca me da el error....

donde limpia datos es:

Código Delphi [-]
procedure TFrmManproductos.Limpia_Datos;
begin
Edit1.text:='';
cboxFamily.text:='';
cboxProvee.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
Edit6.text:='';
Edit7.text:='';
Edit8.text:='';
Edit9.text:='';
//DBImage1.text:='';
Edit1.setfocus;
end;

espero tus comentarios...