[roman]

var
  Label: TLabel;
  N, I: Integer;

begin
  for I := 0 to Pred(ComponentsCount) do
    if Components[ I ] is TLabel then
    begin
      Label := TLabel(Components[ I ];
      if Pos(Label.Caption, 'Cancion') <> 0 then
      begin
        N := StrToInt(Copy(Label.Caption, Length('Cancion'), Length(Label.Caption)));
        if N > primer número then
          Label.Visible := false;
      end;
    end;
end;

También podrías asignar el número de la canción a la propiedad Tag de cada label para evitarte la conversión IntToStr.

// Saludos