[Alegun]

Извнт за ляп, тогда отмена, попробуйте вот так

Код:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_LEFT then
  begin
   MediaPlayer1.FileName:='1.mp3';
   MediaPlayer1.Open;
   MediaPlayer1.Play;
  end;
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_LEFT then MediaPlayer1.Stop;
end;

З.Ы. Тяжело без делфи код под неё собирать, извнт :-)