const
ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped',
'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with Sender as TMediaPlayer do
begin
Form1.Caption := ModeStr[Mode];
Notify := True;
end;
end;