Создание рейтинга песен в аудио проигрывателе (проект прилагается), одно нажатие на плэй +1 к рейтингу Опции

[kvadrat]

На форме DBLookupListBox(плэйлист) и MediaPlayer, нужно сделать так чтобы одно нажатие на плэй на одной песне прибавляло +1 к её рейтингу. Подскажите пожалуйста как это сделать или подкиньте идейку.
 player2.zip ( 10.87 килобайт ) Кол-во скачиваний: 388

[volvo]

Если на момент нажатия кнопки Play в DBLookupListbox-е выбрана нужная песня, то достаточно обработать событие OnPostClick у МедиаПлейера:

procedure TForm1.MediaPlayer1PostClick(Sender: TObject; Button: TMPBtnType);
begin
  if Button = btPlay then begin // Нажата кнопка Play?
    with DBGrid1.DataSource.DataSet do
    begin
      Edit; // Переходим в режим редактирования
      FieldByName('Rating').AsInteger := FieldByName('Rating').AsInteger + 1; // Увеличиваем рейтинг
      Post; // Постим изменения в базу
    end;
  end;
end;