Urgente!!

[gonzabec]

Buenas! Tengo un problema que no se como solucionar. Estoy trabajando con base de datos en delphi, y lo que me pasa es que se me clava el .exe cuando ejecuto con este codigo. Lo componentes que trabajo son TTable, DBGrid y DataSource, si alguien me pudiera decir, porq este codigo rompe el programa.
Lo que hago es pasar todo el contenido a Strin Grid y despues trato de recorrer y buscar similitud con TEdit.
Muchas Gracias.
Saludos.

encontrado:=false;
i:=1;
while not (encontrado) and (i <= Listas.sgCanciones.RowCount -1) do
if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then begin
encontrado:=True;
Listas.sgCanciones.RowCount:=Listas.sgCanciones.RowCount+1;
end;
end
end;