perdon alguien me puede ayudar

[faoa2000]

tengo un problema en una aplicacion q estoy realizando , en delphi version 5 , con un boton q cree para guardar la informacion en una tabla paradox , el codigo q puse en el boton es el siguiente

with qgrabar do
begin

sql.Clear;
sql.Add('Insert into paciente (codpac,nompac,direccion,telef1,telef2,madre,padre,termino,condic,peso,hfenferm1,hfenferm2,hftubercu )');

sql.Add('values(:cod,:nompac,:direccion,:telef1,:telef2,:madre,adre,:termino,:condic,eso,:hfenfe rm1,:hfenferm2,:hftubercu)');
ParamByName('cod').Value:=edit1.text;
ParamByName('nompac').Value:=DBEdit2.text;
ParamByName('direccion').Value:=DBEdit13.text;
ParamByName('telef1').Value:=QgpacienteTelef1.value;
ParamByName('telef2').Value:=QgpacienteTelef2.value;
ParamByName('madre').Value:=DBEdit6.Text;
ParamByName('padre').Value:=DBEdit7.Text;
ParamByName('termino').Value:=DBEdit8.Text;
ParamByName('condic').Value:=DBEdit9.Text;
ParamByName('peso').Value:=QgpacientePeso.value;
ParamByName('hfenferm1').Value:=DBEdit11.Text;
ParamByName('hfenferm2').Value:=DBEdit12.Text;
ParamByName('hftubercu').Value:=QgpacienteHftubercu.value;

sql.Clear;
sql.Add('Insert into paciente (hfalergia,hfcongeni,hfdiabete,hfconvul,entosferi,ensaranpi,enrubeola,enpaperas,envaricel,enescarla, endifteri,enoperaci,enamebios,enapendic,enfiebre,enortistis,enirs,enamig,enconvu,enconsti,endiarre') ;

sql.Add('values(:hfalergia,:hfcongeni,:hfdiabete,:hfconvul,:entosferi,:ensaranpi,:enrubeola,:enpaper as,:envaricel,:enescarla,:endifteri,:enoperaci,:enamebios,:enapendic,:enfiebre,:enortitis,:enirs,:en amig,:enconvu,:enconsti,:endiarre');
ParamByName('hfalergia').Value:=QgpacienteHfalergia.value;
ParamByName('hfcongeni').Value:=QgpacienteHfcongeni.value;
ParamByName('hfdiabete').Value:=QgpacienteHfdiabete.value;
ParamByName('hfconvul').Value:=QgpacienteHfconvul.value;
ParamByName('entosferi').Value:=QgpacienteEntosferi.value;
ParamByName('ensaranpi').Value:=QgpacienteEnsaranpi.value;
ParamByName('enrubeola').Value:=QgpacienteEnrubeola.value;
ParamByName('enpaperas').Value:=QgpacienteEnpaperas.value;
ParamByName('envaricel').Value:=QgpacienteEnvaricel.value;
ParamByName('enescarla').Value:=QgpacienteEnescarla.value;
ParamByName('endifteri').Value:=QgpacienteEndifteri.value;
ParamByName('enoperaci').Value:=QgpacienteEnoperaci.value;
ParamByName('enamebios').Value:=QgpacienteEnamebios.value;
ParamByName('enapendic').Value:=QgpacienteEnapendic.value;
ParamByName('enfiebre').Value:=QgpacienteEnfiebre.value;
ParamByName('enortitis').Value:=QgpacienteEnortitis.value;
ParamByName('enirs').Value:=QgpacienteEnirs.value;
ParamByName('enamig').Value:=QgpacienteEnamig.value;
ParamByName('enconvu').Value:=QgpacienteEnconvu.value;
ParamByName('enconsti').Value:=QgpacienteEnconsti.value;
ParamByName('endiarre').Value:=QgpacienteEndiarre.value;

sql.Clear;
sql.Add('Insert into paciente (indpt,indt,inpolio,insaramp,inpapera,inrubeola,intubercu,inbcg,invaricel,inhepatit,inmenegi)');

sql.Add('values:indpt,:indt,:inpolio,:insaramp,:inpapera,:inrubeola,:intubercu,:inbcg,:invaricel,:in hepatit,:inmenegi)');
ParamByName('indpt').Value:=QgpacienteIndpt.value;
ParamByName('indt').Value:=QgpacienteIndt.value;
ParamByName('inpolio').Value:=QgpacienteInpolio.value;
ParamByName('insaramp').Value:=QgpacienteInsaramp.value;
ParamByName('inpapera').Value:=QgpacienteInpapera.value;
ParamByName('inrubeola').Value:=QgpacienteInrubeola.value;
ParamByName('intubercu').Value:=QgpacienteIntubercu.value;
ParamByName('inbcg').Value:=QgpacienteInbcg.value;
ParamByName('invaricel').Value:=QgpacienteInvaricel.value;
ParamByName('inhepatit').Value:=QgpacienteInhepatit.value;
ParamByName('inmenegi').Value:=QgpacienteInmenegi.value;
ExecSQL;

end;