From 153f59a38a7d3f3bc4840e98cf5da3c9f7bdad2e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 11 Jul 2012 16:51:50 +0000
Subject: [PATCH] * Fixed bug ID #22045

git-svn-id: trunk@21881 -
---
 packages/fcl-base/src/eventlog.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fcl-base/src/eventlog.pp b/packages/fcl-base/src/eventlog.pp
index ee41aeb566..a72bbd1f93 100644
--- a/packages/fcl-base/src/eventlog.pp
+++ b/packages/fcl-base/src/eventlog.pp
@@ -275,6 +275,8 @@ begin
 
   fFileFlags := fFileFlags or fmShareDenyWrite;
   FStream:=TFileStream.Create(FFileName,fFileFlags);
+  if fAppendContent then
+    FStream.Seek(0,soFromEnd);
 end;
 
 Procedure TEventLog.DeActivateFileLog;