Error con edits y grids

[[enecumene]]

Hola amigos del foro!!! tengo un pequeño problemita con una consulta de base de datos con ADO, sucede lo siguiente tengo un maskedit con su editmask configurado por ejemplo: 0000\-0000\-0000\-0000;0;_, y tengo un grid enlazado a la base de datos, en la propiedad onKeyPress del Maskedit tengo este codigo:

Código Delphi [-]
tblClientes.locate('CC',CC.text,[lopartialkey,locaseinsensitive]);
 if tblClientes.Locate('CC', 0, []) THEN
    ShowMessage('El Cliente no existe!');

el problema es lo siguiente si dejo el maskedit con los datos incompletos y al darle click en la rejilla me sale el siguiente error:

Invalid Input value. use escape key for abandon the changes.

y eso hace que el sistema se cierre, como evito ese error??

gracias,

[vtdeleon]

Saludos

En la mascara, en vez de 0's usa 9, (9999\9999\...), el 0 obliga a que tengas que poner un numero.

Código Delphi [-]
tblClientes.locate('CC',CC.text,[lopartialkey,locaseinsensitive]);
 if tblClientes.Locate('CC', 0, []) THEN
    ShowMessage('El Cliente no existe!');

Este codigo lo veo raro, estas haciendo dos Locate seguidos, no lo veo sentido.

[[enecumene]]

Gracias vtdeleon..

Empezado por vtdeleon

Saludos

En la mascara, en vez de 0's usa 9, (9999\9999\...), el 0 obliga a que tengas que poner un numero.

Este codigo lo veo raro, estas haciendo dos Locate seguidos, no lo veo sentido.

lo que intento es que cuando no se encuentre ningun cliente me salga el error de que no me aparece, cosa que no me funciona.

[vtdeleon]

Saludos

Entonces asumo que debería ser así:

Código Delphi [-]

 if tblClientes.locate('CC',CC.text,[lopartialkey,locaseinsensitive]) THEN
    ShowMessage('El Cliente no existe!');

[[enecumene]]

gracias de nuevo vtedeleon ahorita mismo probare el codigo y luego te comento..