validacion de clave

[samuelabad]

Intente con esto pero aun asi me manda error del sql cuando agrego una clave ya ingresada, osea no me valida todabia

i:=0;
ADOModulo.ADOQuery1.SQL.Clear;
ADOModulo.ADOQuery1.SQL.text:=('Select clave_mpo from municipios where clave_mpo=:cl');
ADOModulo.ADOQuery1.ExecSQL;
i:=ADOModulo.ADOQuery1.rowsaffected;
if i=0 then
ShowMessage('La clave es Valida')
else
ShowMessage('La clave es Invalida');