1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TFormMain.WriteLogInfo(Info: String);
var
   CreateLogfile: Boolean;
   LogDatei: TextFile;
begin
     CreateLogfile := mkConfig.CreateLog;

     try
        if CreateLogfile then begin
           if FileExists(AppDataDir + 'mk.log') then begin
              AssignFile(LogDatei, AppDataDir + 'mk.log');
              Append(LogDatei);
           end else begin
              AssignFile(LogDatei, AppDataDir + 'mk.log');
              ReWrite(LogDatei);
           end;
           WriteLn(LogDatei, Info);
        end;
     finally
        try
           CloseFile(LogDatei);
        except
        end;
        Application.ProcessMessages;
     end;
end;