Esto si me funciona:
Código Delphi
[-] if dtm.TblClientes.Locate('CodigoCliente', IntToStr(edbuscacliente.Value), [loPartialKey]) then
El truco como ves, es pasarle un string en lugar del valor entero. Creo que el lopartialkey no furula... pero no lo he quitado del código
EDITO: Vaya.... se me adelantó
Colgueit 
Saludos