LogFile erstellen (zeilenweise in eine Datei schreiben)

void __fastcall TForm1::WriteToFile(AnsiString sLine)
{
    FILE *OutputFile; //Zeiger auf das Logfile
    AnsiString sLogFileName = "test.log";

    // File wird im Modus Append (a) und Text (t) geöffnet
    if ((OutputFile = fopen(sLogFileName.c_str(), "a+t")) == NULL)
    {
        ShowMessage("Fehler beim Öffnen der Datei");
    }
    else
    {
        //Zeilenvorschub zum String hinzufügen
        sLine += "\n";

        //Zeile in die Datei 1x schreiben
        fwrite(sLine.c_str(), sLine.Length(), 1, OutputFile);

        fclose(OutputFile);
    }
}