list index (2) out of bounds ----dbgrid

[anubis]

Perdon por volver a preguntar, pero ya estoy desesperado y no encuentro solucion.
Resumiendo:
un dbgrid y un edit

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
sqlquery1.Close;
 sqlquery1.sql.Clear;
   sqlquery1.SQL.text:='select nombre,telefono1 from contactos where nombre like '+quotedstr('%'+edit1.text+'%');
  sqlquery1.Open;
end;

En el edit pongo lo que quiero ir filtrando y me lo va mostrando hasta que pongo algo que no existe y es cuando me devuelve el error en el dbgrid cuando se actualizan los datos automaticamente.
Hay forma de evitar esto?.

Ya no se que mas hacer.