Loggen mit Anzeige in Programm mit mehreren Threads

[sx2008]

Wie sieht denn die Log-Methode aus?
Im Prinzip müsste das so aussehen:

Delphi-Quellcode:

procedure TLogger.LogMessage(const msg:string);
begin
  EnterCriticalSection(FCriticalSection); 
  try  
    InternalLogMessage(msg);
  finally
    LeaveCriticalSection(FCriticalSection);
  end;
end;

Die Critical Section FCriticalSection darf nur zum Absichern des Zugriffs auf die Logausgabe verwendet werden.