realizar varias busquedas con locate

[ecfisa]

Hola Gonza.

No me puse a analizar en profundidad el código, pero eso sucede por que no quitás el filtro después la verificación de alta.

Agregá la línea en negrita a tu código:

Código Delphi [-]
      
  if dbedit7.Text='1' then
  begin
     showmessage('se encuentra de alta');
     button1.Visible:=true;
     button5.Visible:=true;
     Table2.Filtered:= False;  // quitar filtro
  end;

Saludos.