Можно таким не замысловатым способом.
procedure TMPForm.SpeedButton3Click(Sender: TObject);// Next
begin
if ListBox1.ItemIndex < ListBox1.Count then
ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
if SpeedButton2.Tag = 1 then // SpeedButton2 - это Play.
Play;
end;
|