* Fixed bug ID #22045

git-svn-id: trunk@21881 -

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;