Problemas con filtro dinámico

[Walterdf]

Buenas
Tengo una Query, un TEdit y un dbgrid atado a esa Query. Quisiera que a medida que yo escriba en el TEdit me vaya buscando en el DBGrid el registro que coincida con ese texto y lo hice de esta manera:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with query1 do
begin
Close;
SQL.Clear;
SQL.ADD('select numero from "c:\base.db" where CAMPO like' + quotedstr(edit1.text));
Open;
end;
end;

Pero , por ejemplo, si yo quiero buscar el codigo 1203 me sucede lo siguiente:

cuando escribo el 1, el dbgrid queda en blanco,
cuando presiono el 2 me muestra todos los que empiezan con 1,
cuando presiono el 0 me muestra todos los que empiezan con 12,
cuando presiono el 3 me muestra todos los que empiezan con 120, y ahí se queda salvo que le de un enter o ponga otro caracter.

No se me ocurre como solucionar esto, si alguien puede darme una mano se lo agradeceré.
Saludos.

Walter.