[[mzd]]

Попробуй это, может поможет (если звук выводить через TMediaPlayer):

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];
* *{ Note we must reset the Notify property to True }
* *{ so that we are notified the next time the }
* *{ mode changes }
* *Notify := True;
*end;
end;


[s]Исправлено: [mzd], 16:43 6-11-2003[/s]