[ecfisa]

Hola gonzabec.

Título, falta de etiquetas, falta de detalles,... has roto casi todas las normas de Club Delphi en un solo mensaje!

A ver si primero podemos aclarar el código:

Código Delphi [-]
var
  encontrado: Boolean;
  i: Integer;
begin
  encontrado:=false;
  i:= 1;
  L
  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;
  end
end;

Si lo acomodé correctamente, lo primero que veo es que no incrementas el valor de 'i', por lo que no salis del ciclo while:

Código Delphi [-]
var
  encontrado: Boolean;
  i: Integer;
begin
  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
end;

Saludos.