pesquisa autocompletar, no grid

Seguinte estou com problemas para fazer um "auto completar"..

Em cima de um grid, tenho um campo codigo.

Gostaria que digitando algo, o grid vai buscando sozinho até encontrar o registro certo.

No evendo onchange tem isso.

A 1 vez da certo, mas voltando ele para...

with qrypesqcid do begin Close; SQL.Clear; SQL.Add('select * from CID where upper(DESCRICAO) like :DESCRICAO'); ParamByName('DESCRICAO').AsString:= '%'+UpperCase(edtcid.Text)+'%'; cdspesqcid.Open; end;