Código Delphi [-]DM.Consulta.FieldByName('campo).AsInteger;
DM.Consulta.FieldByName('campo).AsInteger;