Gracias ya resolvi el problema pongo el codigo por si a alguien le sirve
Código Delphi
[-]with fmodulo.Qcontry do
begin
sql.Clear;
sql.Add(' insert into sap_contrato (');
Sql.Add(' nocontrato ,'); sql.Add(' nombre ,'); sql.Add(' paterno ,'); sql.Add(' materno ,'); sql.Add(' ncompleto, '); sql.Add(' localidad ,'); sql.Add(' calle ,'); sql.Add(' noext ,'); sql.Add(' noint ,'); sql.Add(' cp ,'); sql.Add(' fecharegistro ,'); sql.Add(' telefono ,'); sql.Add(' observacio, '); sql.add(' status '); sql.Add(' ) values (');
sql.Add(' '+QuotedStr(wnocontrato)+', '); sql.Add(' '+QuotedStr(wnombre)+', '); sql.Add(' '+QuotedStr(wpaterno)+', '); sql.Add(' '+QuotedStr(wmaterno)+', '); sql.Add(' '+QuotedStr(wcompleto)+', '); sql.add(' '+QuotedStr(wlocalidad)+', '); sql.Add(' '+QuotedStr(wcalle)+', '); sql.Add(' '+IntToStr(wnoint)+', '); sql.Add(' '+inttostr(wnoext)+', '); sql.Add(' '+Inttostr(wcp)+', '); sql.Add(' '+QuotedStr(DateToStr(wfechare))+', '); sql.Add(' '+QuotedStr(wtel)+', '); sql.Add(' '+QuotedStr(wobs)+', '); sql.Add(' '+Inttostr(westatus) +')'); try
ExecSQL;
application.MessageBox('Registro Almacenado Correctamente','',mb_ok + mb_iconinformation);
fcontribuyente.txtcontrato.Text:='';
fcontribuyente.txtnombre.Text:='';
fcontribuyente.txtpaterno.Text:='';
fcontribuyente.txtint.Text:='';
fcontribuyente.txtext.Text:='';
fcontribuyente.txtcalle.Text:='';
fcontribuyente.txttel.Text:='';
fcontribuyente.txtobser.Text:='';
except
showmessage('Problemas con query ['+text+']');
end;