wie sicher ist diese procedure?

[himitsu]

Bei mir läuft Folgendes. ^^

Ich hab da allerdings noch 'ne Log-Anzeige mitlaufen ...

Delphi-Quellcode:

  Procedure TForm1.Log_Add(S: String);
    Const Dateiname = 'Verwaltung-Log.txt';

    Var D: TextFile;

    Begin
      AssignFile(D, Dateiname);
      {$I-}
      Append(D);
      If IOResult <> 0 Then Rewrite(D);
      If IOResult <> 0 Then
        If FileExists(Dateiname) Then Begin
          FileSetAttr(Dateiname, FileGetAttr(Dateiname) and not (faReadOnly or faHidden or faSysFile));
          Append(D);
        End Else Rewrite(D);
      {$I-}
      If S = '' Then WriteLn(D, '') Else WriteLn(D, DateTimeToStr(Now, FormatSettingsLang) + ' ' + S);
      Flush(D);
      CloseFile(D);
      Memo094.Lines.BeginUpdate;
      While Memo094.Lines.Count > 17 do Memo094.Lines.Delete(0);
      Memo094.Lines.Add(TimeToStr(Now) + ' ' + S);
      Memo094.Lines.EndUpdate;
      Application.ProcessMessages;
    End;