From ae468bfb43bc55ad69a79b165d2ad907347f9468 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 22 Oct 2016 07:30:27 +0000
Subject: [PATCH] * Initialize result, bug ID #0030771

git-svn-id: trunk@34748 -
---
 packages/fcl-base/src/fptimer.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-base/src/fptimer.pp b/packages/fcl-base/src/fptimer.pp
index 39d70994dc..cd31f83760 100644
--- a/packages/fcl-base/src/fptimer.pp
+++ b/packages/fcl-base/src/fptimer.pp
@@ -334,6 +334,7 @@ Var
   Diff: Extended;
    
 begin
+  Result:=False;
     { Use Counter*fInterval to avoid numerical errors resulting from adding
       small values (AInterval/cMilliSecs) to a large real number (TDateTime),
       even when using Extended precision }