validacion de clave

[samuelabad]

Tengo un problema con la validacion de una clave que ingreso en un edit y cuando doy clic en guardar no me valida si la clave ya exite o no en mi tabla sql, por lo que si ingreso una que ya existe me manda un error el sql.
esta es mi funcion ojalá me pueda ayudar
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');

[vtdeleon]

Saludos

No repitas hilos.
Date una vuelta por: Guía de Estilo,