procedure TfCreateTorrent.btnCreateClick(Sender: TObject);
var
  BTCreateTorrent: IBTCreateTorrent;
  X: Integer;
  FindBTPlugin: Boolean;
  Id: string;
begin
  if ButtonSave then
  begin
    if ComboBox1.Text[length(ComboBox1.Text)] = '\' then
      ComboBox1.Text := copy(ComboBox1.Text, 1, length(ComboBox1.Text) - 1);

    if FileExists(ComboBox1.Text) then
    begin
      SaveDialog1.Filter := 'Torrent Files (*.torrent)|*.torrent';
      SaveDialog1.Filename := ComboBox1.Text + '.torrent';
      SaveDialog1.DefaultExt := 'Torrent files (*.torrent)';
      FormStyle := fsNormal;
      if SaveDialog1.Execute then
      begin
        FormStyle := fsStayOnTop;
        TorrentFileName := SaveDialog1.Filename; // выбор пути для сохраниния торрент-файла
        ButtonSave := False;
        btnCreate.Caption := 'Остановить';

        EnterCriticalSection(TorrentSection);
        try
          for X := 0 to Plugins.Count - 1 do
          begin
            if (Supports(Plugins[X], IBTCreateTorrent, BTCreateTorrent)) then // поиск интерфейса IBTCreateTorrent, отвечающего за создание торрент-файла
            begin
              FindBTPlugin := true;
              break;
            end;
          end;
        finally
          LeaveCriticalSection(TorrentSection);
        end;

        if FindBTPlugin then
        begin         
            Id := IntToStr(CreateTorrentID)          

          EnterCriticalSection(TorrentSection);
          try
            try
              BTCreateTorrent.SingleFileTorrent((Id), (ComboBox1.Text),
                (SaveDialog1.Filename), (mmoComment.Lines.Text),
                (GetAnnounceURL), (mmWebSeeds.Lines.Text), CheckBox2.checked,
                ComboBox2.ItemIndex, False, False, '', '', '', '');  //запуск процедуры создания торрент-файла из плагина BTService для одиночного файла
            except
            end;
          finally
            LeaveCriticalSection(TorrentSection);
          end;

          repeat
            application.ProcessMessages;

            EnterCriticalSection(TorrentSection);
            try         
              try
                GetInGeted(BTCreateTorrent.GetInfoTorrentCreating(Id)); // получение информации о создании торрент файла  
              except
              end;            
            finally
              LeaveCriticalSection(TorrentSection);
            end;

            if (Stop) and (not(GetedStatus = 'stoped')) then
            begin
              EnterCriticalSection(TorrentSection);
              try      
                try
                  BTCreateTorrent.StopCreateTorrentThread(Id); // остановка создания торрент-файла     
                except
                end;           
              finally
                LeaveCriticalSection(TorrentSection);
              end;
            end;

            WaitingCreation;

            if (Stop) and (not(GetedStatus = 'stoped')) then
            begin
              EnterCriticalSection(TorrentSection);
              try          
                try  
                  BTCreateTorrent.StopCreateTorrentThread(Id); // остановка создания торрент-файла         
                except
                end;
              finally
                LeaveCriticalSection(TorrentSection);
              end;
            end;

            sleep(10);
          until (GetedStatus = 'completed') or (GetedStatus = 'stoped');
        end;
        
        try
          ReleaseCreateTorrentThread(BTCreateTorrent, Id); // уничтожение потока создания торрент-файла
        except
        end;

        if (GetedStatus = 'completed') then
        begin
          sGauge2.Position := sGauge2.Max;
          sGauge1.Position := sGauge1.Max;
          StatusBar1.Panels[0].Text :=
            'Создание торрент-файла успешно завершено!';

          if CheckBox1.checked then
            StartTorrent;
        end;
        if (GetedStatus = 'stoped') then
        begin
          StatusBar1.Panels[0].Text := 'Остановлено.';
        end;

        Stop := False;
        btnCreate.Enabled := true;
        ButtonSave := true;
        btnCreate.Caption := 'Создать';
      end;
    end
    else if DirectoryExists(ComboBox1.Text) then
    begin
      SaveDialog1.Filter := 'Torrent Files (*.torrent)|*.torrent';
      SaveDialog1.Filename := ComboBox1.Text + '.torrent';
      SaveDialog1.DefaultExt := 'Torrent files (*.torrent)';
      FormStyle := fsNormal;
      if SaveDialog1.Execute then
      begin
        FormStyle := fsStayOnTop;
        TorrentFileName := SaveDialog1.Filename; // выбор пути для сохраниния торрент-файла
        ButtonSave := False;
        btnCreate.Caption := 'Остановить';

        EnterCriticalSection(TorrentSection);
        try
          for X := 0 to Plugins.Count - 1 do
          begin
            if (Supports(Plugins[X], IBTCreateTorrent, BTCreateTorrent)) then // поиск интерфейса IBTCreateTorrent, отвечающего за создание торрент-файла
            begin
              FindBTPlugin := true;
              break;
            end;
          end;
        finally
          LeaveCriticalSection(TorrentSection);
        end;

        if FindBTPlugin then
        begin          
            Id := IntToStr(CreateTorrentID)          

          EnterCriticalSection(TorrentSection);
          try    
            try
              BTCreateTorrent.CreateFolderTorrent((Id), (ComboBox1.Text),
                (SaveDialog1.Filename), (mmoComment.Lines.Text),
                (GetAnnounceURL), (mmWebSeeds.Lines.Text), CheckBox2.checked,
                ComboBox2.ItemIndex, False, False, '', '', '', ''); //запуск процедуры создания торрент-файла из плагина BTService для каталога с файлами        
            except
            end;
          finally
            LeaveCriticalSection(TorrentSection);
          end;

          repeat
            application.ProcessMessages;

            EnterCriticalSection(TorrentSection);
            try              
                GetInGeted(BTCreateTorrent.GetInfoTorrentCreating(Id));  // получение информации о создании торрент файла              
            finally
              LeaveCriticalSection(TorrentSection);
            end;

            if (Stop) and (not(GetedStatus = 'stoped')) then
            begin
              EnterCriticalSection(TorrentSection);
              try        
                try        
                  BTCreateTorrent.StopCreateTorrentThread(Id); // остановка создания торрент-файла      
                except
                end;
              finally
                LeaveCriticalSection(TorrentSection);
              end;
            end;

            WaitingCreation;

            if (Stop) and (not(GetedStatus = 'stoped')) then
            begin
              EnterCriticalSection(TorrentSection);
              try    
                try
                  BTCreateTorrent.StopCreateTorrentThread(Id); // остановка создания торрент-файла           
                except
                end;
              finally
                LeaveCriticalSection(TorrentSection);
              end;
            end;

            sleep(10);
          until (GetedStatus = 'completed') or (GetedStatus = 'stoped');

          EnterCriticalSection(TorrentSection);
          try
            try
              ReleaseCreateTorrentThread(BTCreateTorrent, Id); // уничтожение потока создания торрент-файла
            except
            end;
          finally
                LeaveCriticalSection(TorrentSection);
          end;

          if (GetedStatus = 'completed') then
          begin
            sGauge2.Position := sGauge2.Max;
            sGauge1.Position := sGauge1.Max;
            StatusBar1.Panels[0].Text :=
              'Создание торрент-файла успешно завершено!';
            if CheckBox1.checked then
              StartTorrent;
          end;
          if (GetedStatus = 'stoped') then
          begin
            StatusBar1.Panels[0].Text := 'Остановлено.';
          end;

          Stop := False;
          btnCreate.Enabled := true;
          ButtonSave := true;
          btnCreate.Caption := 'Создать';
        end;
      end;
    end
    else
    begin
      Stop := False;
      btnCreate.Enabled := true;
      ButtonSave := true;
      btnCreate.Caption := 'Создать';
    end;
  end
  else
  begin
    Stop := true;
    btnCreate.Enabled := False;
    ButtonSave := true;
    StatusBar1.Panels[0].Text := 'Приостановка процесса...';
    btnCreate.Caption := 'Останавливается...';
  end;
end;

procedure TfAddTorrent.btnDownloadClick(Sender: TObject);
begin
  if AddTask(true, false) then
    close;
end;

function TfAddTorrent.AddTask(Now: Boolean; ShowPrev: Boolean): Boolean;
var
  find: Boolean;
  TorrentDataSL: TStringList;
  X: Integer;
  DataTask: TTask;
  BTPluginAddTrackers: IBTServicePluginAddTrackers;
begin
  Result := false;
  if Trim(HashValue) = '' then
  begin
    MessageBox(Handle,
      PChar('Нет доступа к торрент файлу или ошибка чтения торрент-файла'),
      PChar(Options.Name), MB_OK or MB_ICONWARNING or MB_TOPMOST);
    Exit;
  end;

  find := false;
  with TasksList.LockList do
    try
      for X := 0 to Count - 1 do
      begin
        DataTask := Items[X];
        if DataTask.Status <> tsDeleted then
          if DataTask.HashValue = HashValue then
          begin
            find := true;
            break;
          end;
      end;
    finally
      TasksList.UnLockList;
    end;
  if find then
  begin
    if MessageBox(Application.Handle,
      PChar('Вы пытаетесь добавить торрент, который уже есть в списке. Хотите загрузить из него список трекеров?'),
      PChar(Options.Name), MB_OKCANCEL or MB_ICONWARNING) = ID_OK then
    begin
      for X := 0 to Plugins.Count - 1 do
      begin
        if (Supports(Plugins[X], IBTServicePluginAddTrackers,
          BTPluginAddTrackers)) then
        begin
          try
            BTPluginAddTrackers.AddTrackers(HashValue, trackers); // Добавление трекеров из торрент-файла
          except
          end;
          break;
        end;
      end;
    end;
    Exit;
  end;

  TorrentDataSL := TStringList.Create;
  try
    TorrentDataSL.Insert(0, BoolToStr(true));

    if Now then
      TorrentDataSL.Insert(1, BoolToStr(true))
    else
      TorrentDataSL.Insert(1, BoolToStr(false));

    TorrentDataSL.Insert(2, Edit1.Text);
    TorrentDataSL.Insert(3, ExcludeTrailingBackSlash(cbDirectory.Text));
    TorrentDataSL.Insert(4, IntToStr(0));
    TorrentDataSL.Insert(5, Edit2.Text);

    AddTorrent(TorrentDataSL.Text, HashValue, Now, ShowPrev);
  finally
    TorrentDataSL.Free;
  end;

  try
    ForceDirectories(ExcludeTrailingBackSlash(cbDirectory.Text));
  except
  end;

  SaveTasksList;
  Result := true;
end;

function TfAddTorrent.AddTorrent(TorrData: string; HashValue: string;
  Now: Boolean; ShowPrev: Boolean): Boolean;
var
  AddDataTask: TTask;
  AddedData: TStringList;
  CreaName, CreatedName: string;
  Plugin2: IAddDownload;
  IndexPlugin2: Integer;
  Silent: Boolean;
  Down: Boolean;
begin
  Result := false;
  AddedData := TStringList.Create;

  try
    AddedData.Text := TorrData;
    try
      Silent := StrToBool(AddedData[0]);
      Down := StrToBool(AddedData[1]);
    except
      Down := true;
      Silent := true;
    end;
    if Silent then
    begin
      AddDataTask := TTask.Create;
      AddDataTask.TorrentFileName := AddedData[2]; // путь к добавляемому торрент-файлу
      AddDataTask.HashValue := HashValue; // info hash
      AddDataTask.LinkToFile := 'magnet:?xt=urn:btih:' +
        AnsiLowerCase(AddDataTask.HashValue); // magnet-ссылка
      AddDataTask.Directory := ExcludeTrailingBackSlash(AddedData[3]); // директория для сохранения содержимого закачиваемого торрента
      AddDataTask.ID := Options.LastID + 1; // идентификатор в списке торрентов
      Options.LastID := AddDataTask.ID;
      CreaName := AddedData[5];
      CreaName := trimleft(CreaName);
      CreaName := trimright(CreaName);
      CreatedName := CreaName;
      AddDataTask.FileName := CreatedName; // имя файла или каталога закачиваемого торрента
      AddDataTask.Description := ''; 
      if CheckBox1.Checked then
        AddDataTask.ProgressiveDownload := true // функция последовательной закачки включена
      else
        AddDataTask.ProgressiveDownload := false; // функция последовательной закачки отключена

      if Down then
        AddDataTask.Status := tsQueue // добавляем закачку в очередь
      else
        AddDataTask.Status := tsReady; // торрент готов к закачке

      AddDataTask.TotalSize := SizeTorrent; // размер содержимого файлов закачиваемого торрента
      AddDataTask.LoadSize := 0;
      AddDataTask.TimeBegin := 0;
      AddDataTask.TimeEnd := 0;
      AddDataTask.TimeTotal := 0;
      AddDataTask.MPBar := TAMultiProgressBar.Create(nil); // создание прогрессбара

      Plugin2 := nil;
      DeterminePlugin2('bittorrent', IServicePlugin, Plugin2, IndexPlugin2);
      if Plugin2 <> nil then
        if Plugins[IndexPlugin2] <> nil then
          if (Plugins[IndexPlugin2].TaskIndexIcon > 0) then
            AddDataTask.TaskServPlugIndexIcon := Plugins[IndexPlugin2]
              .TaskIndexIcon
          else
          begin
            if pos('magnet:?', AnsiLowerCase(AddDataTask.LinkToFile)) = 1 then
              AddDataTask.TaskServPlugIndexIcon := 34; 
          end;

      TasksList.Add(AddDataTask);
      Result := true;

      PostMessage(Options.MainFormHandle, WM_MYMSG, 0, 12345);

      if Now then
        LoadTorrentThreads.Add(TLoadTorrent.Create(false, AddDataTask, true)); // создание потока выполняющего запуск торрента
    end;

  finally
    AddedData.Free;
  end;
end;

procedure TfMainForm.lvTasksData(Sender: TObject; Item: TListItem);
var
  i: Integer;
  Task: TTask;
  Procent, Procent2: string;
  EndPoint: Integer;
begin
  with TasksList.LockList do
    try
      for i := 0 to Count - 1 do
      begin
        if i = Item.Index then
        begin
          Task := Items[Item.Index];
          // Иконка состояния
          case Task.Status of
            tsReady: Item.ImageIndex := 0; // Ожидание закачки 
            tsQueue: Item.ImageIndex := 1; // В очереди
            tsError: Item.ImageIndex := 2; // Ошибка завершена
            tsErroring: Item.ImageIndex := 2; // Ошибка не завершена
            tsLoading: Item.ImageIndex := 3;  // Закачка
            tsStoping: Item.ImageIndex := 4; // Остановка
            tsStoped: Item.ImageIndex := 5; // Пауза
            tsLoad: Item.ImageIndex := 6; // Закачано
            tsProcessing: Item.ImageIndex := 8; // Поиск
            tsSeeding: Item.ImageIndex := 9; // Раздача
            tsBittorrentMagnetDiscovery: Item.ImageIndex := 10; // Magnet-поиск
            tsDelete: Item.ImageIndex := 11; // Удаляется
            tsDeleted: Item.ImageIndex := 11; // Удален
          end;
          Item.SubItems.Add(Task.FileName); // Имя Файла
          Item.SubItems.Add(Task.LinkToFile); // Ссылка
          Item.SubItemImages[1] := 12;
          // Состояние
          case Task.Status of
            tsReady: Item.SubItems.Add('Ожидание');
            tsQueue: Item.SubItems.Add('В очереди');
            tsError: Item.SubItems.Add('Ошибка');
            tsErroring: Item.SubItems.Add('Ошибка');
            tsLoading:
              begin
                if Task.TotalSize > 0 then
                begin
                  Procent := FloatToStr((Task.LoadSize / Task.TotalSize) * 100);
                  begin
                    EndPoint := pos(',', Procent);
                    if EndPoint <> 0 then
                    begin
                      Procent2 := copy(Procent, 1, EndPoint + 1);
                      Item.SubItems.Add(Procent2 + '% ' + 'Закачка');
                    end
                    else
                    begin
                      try
                        Procent2 := FloatToStrF(StrToInt(Procent),
                          ffFixed, 6, 1);
                      except
                      end;
                      Item.SubItems.Add(Procent2 + '% ' + 'Закачка');
                    end;
                  end;
                end
                else
                  Item.SubItems.Add('');
              end;
            tsStoping: Item.SubItems.Add('Останавливается');
            tsStoped: if (Task.TotalSize > 0) then
                Item.SubItems.Add(FloatToStrF((Task.LoadSize / Task.TotalSize) *
                  100, ffFixed, 6, 1) + '% ' + 'Пауза')
              else
                Item.SubItems.Add('0% ' + 'Пауза');
            tsLoad: Item.SubItems.Add('Завершено');
            tsProcessing: Item.SubItems.Add('Поиск');
            tsSeeding: Item.SubItems.Add('Раздача');
            tsBittorrentMagnetDiscovery: Item.SubItems.Add('Magnet-поиск');
            tsDelete: Item.SubItems.Add('Удалено');
            tsDeleted: Item.SubItems.Add('Удалено');
            tsFileError: Item.SubItems.Add('Ошибка торрента');
            tsAllocating: Item.SubItems.Add('Распределение');
            tsFinishedAllocating: Item.SubItems.Add('Распределение завершено');
            tsRebuilding: Item.SubItems.Add('Восстановление');
            tsJustCompleted: Item.SubItems.Add('Завершается');
            tsCancelled: Item.SubItems.Add('Отменено');
            tsUploading: Item.SubItems.Add('Раздача');
            tsStartProcess: Item.SubItems.Add('Запуск');
          end;
          if Task.Speed > 0 then
          begin
            Item.SubItems.Add(GetTimeStr((Task.TotalSize - Task.LoadSize)
              div Task.Speed)); // Осталось
          end
          else
            Item.SubItems.Add('');
          if Task.TotalSize > 0 then
            Item.SubItems.Add(BytesToText(Task.TotalSize)) // Размер
          else
            Item.SubItems.Add('');
          Item.SubItems.Add(BytesToText(Task.LoadSize)); // Закачано
          if Task.Speed > 0 then
            Item.SubItems.Add(BytesToText(Task.Speed) + '/s') // Скорость
          else
            Item.SubItems.Add('');
          if Task.NumConnectedSeeders > 0 then
            Item.SubItems.Add(IntToStr(Task.NumConnectedSeeders)) // Сиды
          else
            Item.SubItems.Add('');
          if Task.NumConnectedLeechers > 0 then
            Item.SubItems.Add(IntToStr(Task.NumConnectedLeechers)) // Пиры
          else
            Item.SubItems.Add('');
          if Task.UploadSpeed > 0 then
            Item.SubItems.Add(BytesToText(Task.UploadSpeed) + '/s') // Скорость отдачи
          else
            Item.SubItems.Add('');
          if Task.UploadSize > 0 then
            Item.SubItems.Add(BytesToText(Task.UploadSize)) // Отдано
          else
            Item.SubItems.Add('');
          break;
        end;
      end;
    finally
      TasksList.UnLockList;
    end;
end;