Consulta con ADOTABLE

[ecfisa]

Hola nefore, bienvenido a Club Delphi

Como a todos los recién llegados te invitamos a que leas nuestra guía de estilo.

Yo haría:

Código Delphi [-]
function Tclasepropietario.Busqueda(const aFieldName, aValue: string): Boolean;
begin
  with ADOTable1 do
  begin
    Filtered := False;
    Filter   := '(' + aFieldName + ' LIKE ' + QuotedStr('*' + aValue + '*') + ')';
    Filtered := True;
    Result   := RecordCount > 0;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
  if Busqueda('CODIGO_TITULAR', '0006') then
   ...

Saludos.