busqueda dentro de en un listbox

[Max_E.]

hola denuevo:

he hecho esto

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
query1.Open;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      Query1.Filtered := False;
      case combobox1.ItemIndex of
      0:Filtro := 'Nombre Like '+Edit1.Text + '*''';
      1:Filtro := 'Codigo Like '+Edit1.Text + '*''';
      end;
      Query1.Filter := Filtro;
      Query1.Filtered := True
   end
   else Query1.Filtered := False;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;

end.

1º hice una table con campos Nombre y codigo nada mas, llenando nombres y codigos al asar (jose - 3411, luis - 3415,.......).

2º coloque en el SQL del query
Select*
from busqueda (busqueda es el nombre de la tabla de 2 campos)

3º al ejecutar el programa no me salen errores, pero al digitar 'j' en el edit me sale el error (Query1: Field 'j' not found) y logico no busca nada o algo parecido

4º no se como le hiciste o que es
ATClientesCodCliente: TIntegerField;
ATClientesNombreCliente: TWideStringField; en tus codigos

quiza aqui este mi problema.

podrias explicame donde esta mi gravisimo error

Saludos y gracias por tu tiempo.