Hola vanesa007.
Según entiendo queres hacer una búsqueda incremental, te pongo otra alternativa que hace lo que solicitas usando un
TADOQuery :
Código Delphi
[-]
procedure TForm1.EditChange(Sender: TObject);
begin
with ADOQuery do
begin
Close;
SQL.Text:='SELECT * FROM TU_TABLA WHERE APELLIDO LIKE :VALUE';
Parameters.ParamByName('VALUE').Value:= Edit1.Text + '%';
Open;
end;
end;
En el caso de presentarse igualdades, supongo que lo indicado será dejar librada la elección al usuario aprovechando el evento
OnClick u
OnDblClick del
TDBGrid.
Lo que también te comento que este tipo de búsquedas no son muy eficientes, sobre todo cuando se realizan en red ya que provocan mucho tráfico.
Saludos.