загрузка в новый гит с мелкими правками

frames/fPlayerWeb.pas

@@ -7,7 +7,7 @@ uses
   System.Variants, FMX.Styles, IdHTTPWebBrokerBridge, IdGlobal, Web.HTTPApp,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
   FMX.Controls.Presentation, FMX.Layouts, FMX.ListBox, uPlayerThread,
-  bass_simple, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Edit;
+  {bass_simple,} FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Edit;
 
 type
   TfrPlayerWeb = class(TFrame)
@@ -15,7 +15,7 @@ type
     Edit1: TEdit;
 
   private
-    mp: TBassSimple;
+   { mp: TBassSimple;}
     Player: TPlayerThread;
     FServer: TIdHTTPWebBrokerBridge;
     procedure StartServer;
@@ -33,7 +33,7 @@ begin
   FServer.Active := False;
   FServer.Bindings.Clear;
   Player.Free;
-mp.Free;
+{mp.Free;}
 end;
 
 procedure TfrPlayerWeb.init;