From 4ef87579ebd28eae730c2f026da6984105055fdb Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Wed, 27 Aug 2014 15:36:52 +0000
Subject: [PATCH] amicommon: GetLocalTime correct millisecond value

git-svn-id: trunk@28526 -
---
 rtl/amicommon/sysutils.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/amicommon/sysutils.pp b/rtl/amicommon/sysutils.pp
index e9f1491900..f315440afd 100644
--- a/rtl/amicommon/sysutils.pp
+++ b/rtl/amicommon/sysutils.pp
@@ -568,8 +568,10 @@ end;
 Procedure GetLocalTime(var SystemTime: TSystemTime);
 var
  dayOfWeek: word;
+ Sec100: Word;
 begin
-  dos.GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second,SystemTime.Millisecond);
+  dos.GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second, Sec100);
+  SystemTime.Millisecond := Sec100 * 10;
   dos.GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day, DayOfWeek);
 end;