Subconsulta

[roman]

Posteado originalmente por jhonny

procedure Tform1.Plocate;
begin
    Query1.Locate('Codigo',edit1.text,[]);
end;

Creo que le conviene incluir loPartialKey en las opciones del Locate:

procedure Tform1.Plocate;
begin
    Query1.Locate('Codigo',edit1.text,[loPartialKey]);
end;

De lo contrario el registro no se moverá hasta que el contenido del Edit coincida completamente con el valor de un campo.

// Saludos