Porque no intentas:
ADOModulo.ADOQuery1.SQL.Clear;
ADOModulo.ADOQuery1.SQL.text:=('Select clave_mpo from municipios where clave_mpo=:cl');
ADOModulo.ADOQuery1.ExecSQL;
If ADOModulo.AdoQuery1.IsEmpty then
ShowMessage('La clave es Valida')
else
ShowMessage('La clave es Invalida');
|