Error al Filtrar un Campo Autonumerico

[feliz-58]

No puedo abrir el Filtro en un campo autonúmerico, puedo filtrar cualquier otro, pero cuando intento el mismo código con el campo autonúmerico me da error.

El código del filtro es este:

Código Delphi [-]
if EBuscar.Text <> EmptyStr then
  begin
      DM.ADbuscarclientes.Filtered:=False;
      DM.ADbuscarclientes.Filter:='Codigo like '+QuotedStr('%'+ EBuscar.Text + '%');
      DM.ADbuscarclientes.Filtered:=True;
  end
  Else
  begin
      DM.ADbuscarclientes.Filtered:=False;
  end;

Adotable.

Saludos!