[ecfisa]

Hola.

Yo tampoco entiendo el por que de esa línea, pero según lo veo, sólo agrega una fila y es cuando halla una igualdad con la propiedad Text del Edit.

Es decir si Cells[0, i] <> txtBuscador.Text, no se agrega ninguna columna.

Y s iCells[0, i] = txtBuscador.Text, :

• Pone en verdadero a 'encontrado'.
• Agrega una línea al StringGrid. (no sé por que motivo).
• Incrementa a 'i'.
• Sale del ciclo while ya que 'encontrado' es verdadero.

Código Delphi [-]
...
 encontrado:=false;
  i:= 1;
  while not encontrado and (i <= Listas.sgCanciones.RowCount -1) do
  begin
    if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then
    begin
      encontrado := True;
      Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1;
    end;
    Inc(i); // <=== por ejemplo aquí
  end
...

Saludos.