* Isolamento de log em uma thread própria.

Author: mobius1qwe

log/lazarus/Log.TextFile.pas

@@ -20,6 +20,7 @@   TLog = class(TThread)
     FSection: string;
     FValue: string;
   protected
+    procedure doLog;
     procedure Execute; override;
   public
     constructor Create(ASection, AValue, AFileName: string);
@@ -46,7 +47,7 @@ destructor TLog.Destroy;
   inherited Destroy;
 end;
 
-procedure TLog.Execute;
+procedure TLog.doLog;
 var
   FLogFile: Text;
   logdata: string;
@@ -75,6 +76,11 @@ procedure TLog.Execute;
   end;
 end;
 
+procedure TLog.Execute;
+begin
+  Synchronize(@doLog);
+end;
+
 class procedure TLog.Log(ASection, AValue: string; AFileName: string);
 begin
   Create(ASection, AValue, AFileName);