如何控制执行顺序？

Question

一个程序，先播放媒体，播完后再删除
...
mediaplayer.filename('playfile');
mediaplayer.play;
(...)
deletefile('playfile');如上，中间加什么才可以呢？

Answer 1

不再播放时写,写在如下事件里
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.Mode=mpStopped then
  deletefile('playfile');
  .........
end;

Answer 2

mediaplayer.filename('playfile');
mediaplayer.play;
if MediaPlayer1.Mode=mpStopped then
  deletefile('playfile');

Answer 3

try
mediaplayer.filename('playfile');
mediaplayer.play;
finally
deletefile('playfile');这样子，不管怎么样，可以保证播放和释放的顺序。