Boton buscar

[ecfisa]

Hola.

Si deseas usar el ADOTable en la búsqueda, para posicionarte en el primer registro coincidente:

Código Delphi [-]
procedure TForm.btnBuscarClick(Sender: TObject);
begin
  ADOTable.Locate('NOMBRE_DEL_CAMPO', EditBusca.Text, [loCaseInsensitive, loPartialKey]);
end;

Y para mostrar en el DBGrid sólo los registros que coincidan con la cadena especificada en la propiedad Filter:

Código Delphi [-]
procedure TForm.btnBuscarClick(Sender: TObject);
begin
  if EditBusca.Text > '' then
  begin
    ADOTable.Filtered := False;
    ADOTable.Filter   := Format('NOMBRE_DEL_CAMPO LIKE %S', [QuotedStr(EditBusca.Text + '%')]);
    ADOTable.Filtered := True;
  end;
end;

Saludos