лацання за назвою песніTForm1.ListBox1Click (Sender: TObject);
Label1.Caption:=ListBox1.Items [ListBox1.ItemIndex];
Play;;
/ / клацання по кнопці ІгратьTForm1.SpeedButton1Click (Sender: TObject);
if SpeedButton1.Caption=«Грати» then;. Caption:=«Стоп»;. Caption:=«Грати»;. Stop;
Timer1.Enabled:=False;;;
/ / сигнал від таймераTForm1.Timer1Timer (Sender: TObject);
/ / змінити лічильник часу
if sec < 59Inc (sec):=0; (min);
end;
/ / вивести час відтворення
Label2.Caption:=IntToStr (min) + «:»; sec < 10 then.Caption:=Label2.Caption + «0» + IntToStr (sec). Caption:=Label2.Caption + IntToStr (sec);
/ / якщо відтворення поточної композиції не завершено
if MediaPlayer1.Position < MediaPlayer1.LengthExit;
/ / відтворення поточної композиції закінчено
Timer1.Enabled:=False;. Stop; ListBox1.ItemIndex < ListBox1.Count - 1 then.ItemIndex:=ListBox1.ItemIndex + 1;;; (ListBox1.ItemIndex=ListBox1.Count - 1) and CheckBox1.Checked=True then.ItemIndex:=0;;;
end;
procedure TForm1.ShellTreeView1Change (Sender: TObject; Node: TTreeNode);
begin
cDir:=ShellTreeView1.Path + «/»; (cDir); ListBox1.Items.Count> 0 Then
Begin
ListBox1.ItemIndex:=0;. Caption:=ListBox1.Items [ListBox1.ItemIndex];;;.
