Перемотка в mP3 плеере

[lionman]

Как сделать чтобы при нажатии клавиш вперед назад перематывалась песня в Mp3 плеере, сделанным через Mediaplayer. Но чтобы клавиши работали только при активном окне плеера.

[anton14]

procedure Button1Click(Sender:TObject);
begin
MediaPlayer1.Position:=MediaPlayer1.Position + 100;
MediaPlayer1.Play;
end;
Кнопка назад
procedure Button2Click(Sender:TObject);
begin
MediaPlayer1.Position:=MediaPlayer1.Position - 100;
MediaPlayer1.Play;
end;

[lionman]

Я знаю как перематывать. Мне нужно как перематывать клавишами вперед, назад.

[anton14]

if key=VK_LEFT then.....
if key=VK_RIGHT then.....

Тогда так