procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
 case Button of
   btPlay:   MessageBox(0, 'Przed naciniciem Play',   'Uwaga', MB_OK);
   btPause:  MessageBox(0, 'Przed naciniciem Pause',  'Uwaga', MB_OK);
   btStop:   MessageBox(0, 'Przed naciniciem Stop',   'Uwaga', MB_OK);
   btNext:   MessageBox(0, 'Przed naciniciem Next',   'Uwaga', MB_OK);
   btPrev:   MessageBox(0, 'Przed naciniciem Prev',   'Uwaga', MB_OK);
   btStep:   MessageBox(0, 'Przed naciniciem Step',   'Uwaga', MB_OK);
   btBack:   MessageBox(0, 'Przed naciniciem Back',   'Uwaga', MB_OK);
   btRecord: MessageBox(0, 'Przed naciniciem Record', 'Uwaga', MB_OK);
   btEject:  MessageBox(0, 'Przed naciniciem Eject',  'Uwaga', MB_OK);
 end;
end;

procedure TForm1.MediaPlayer1PostClick(Sender: TObject;
  Button: TMPBtnType);
begin
 case Button of
   btPlay:   MessageBox(0, 'Po wykonaniu Play',   'Uwaga', MB_OK);
   btPause:  MessageBox(0, 'Po wykonaniu Pause',  'Uwaga', MB_OK);
   btStop:   MessageBox(0, 'Po wykonaniu Stop',   'Uwaga', MB_OK);
   btNext:   MessageBox(0, 'Po wykonaniu Next',   'Uwaga', MB_OK);
   btPrev:   MessageBox(0, 'Po wykonaniu Prev',   'Uwaga', MB_OK);
   btStep:   MessageBox(0, 'Po wykonaniu Step',   'Uwaga', MB_OK);
   btBack:   MessageBox(0, 'Po wykonaniu Back',   'Uwaga', MB_OK);
   btRecord: MessageBox(0, 'Po wykonaniu Record', 'Uwaga', MB_OK);
   btEject:  MessageBox(0, 'Po wykonaniu Eject',  'Uwaga', MB_OK);
 end;
end;