From ccca7d80b99b694e0dd943d3832403d11c67394e Mon Sep 17 00:00:00 2001
From: jiro <yamat0jp@yahoo.co.jp>
Date: Sun, 15 Mar 2015 11:39:24 +0900
Subject: [PATCH] =?utf8?q?=E3=82=A8=E3=83=95=E3=82=A7=E3=82=AF=E3=83=88?=
 =?utf8?q?=E3=81=AE=E5=AE=8C=E6=88=90?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Unit1.pas | 1 +
 Unit3.pas | 1 +
 2 files changed, 2 insertions(+)

diff --git a/Unit1.pas b/Unit1.pas
index 90b2301..bbc3435 100644
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -161,6 +161,7 @@ begin
     if ListView1.ItemIndex < ListView1.ItemCount - 1 then
     begin
       ComboBox1.ItemIndex := Random(ComboBox1.Items.Count);
+      FloatAnimation1.Stop;
       Button2Click(Sender);
     end;
   end
diff --git a/Unit3.pas b/Unit3.pas
index 242f5de..1439a8e 100644
--- a/Unit3.pas
+++ b/Unit3.pas
@@ -75,6 +75,7 @@ end;
 procedure TForm3.Button4Click(Sender: TObject);
 begin
   TrackBar1.Value := 0;
+  MediaPlayer1.CurrentTime:=0;
 end;
 
 procedure TForm3.FormCreate(Sender: TObject);
-- 
2.11.0