Muchas gracias por atenderme.
De verdad les gradezco mucho
AL final el codigo lo deje asi (de acuerdo con sus sugerencias)y funciona bien
Código Delphi
[-]
var
a,b,c,d:integer;
begin
a:=StrToInt(LCBMunicipio.Text);
b:=StrToInt(LCBLocalidad.Text);
c:=StrToInt(LCBZona.Text);
d:=StrToInt(LCBContacto.Text);
DataModule1.ADOQueryEscuela.Close;
DataModule1.ADOQueryEscuela.SQL.Text:='insert into escuela (nombre,clave,tipo,id_municipio,id_localidad,id_zona,id_contacto) values('+char(39)+EditNombreEscuela.Text+char(39)+','+char(39)+EditClaveEscuela.Text+char(39)+','+ch ar(39)+LCBTipo.Text+char(39)+','+IntToStr(a)+','+IntToStr(b)+','+IntToStr(c)+','+IntToStr(d)+')';
showmessage(DataModule1.ADOQueryEscuela.SQL.Text);
DataModule1.ADOQueryEscuela.ExecSQL;
Gracias
