... .Text := 'insert into escuela (nombre,clave,tipo,id_municipio,id_localidad,id_zona,id_contacto) values
('''+EditNombreEscuela.Text+''','''+EditClaveEscuela.Text+''','''+LCBTipo.Text+''', '+IntToStr(a)+','+IntToStr(b)+','+IntToStr(c)+','+IntToStr(d)+')';