Wie wäre es total oldschool, so in etwa:
Delphi-Quellcode:
procedure LogResult(const Text: string; const LogFile: string);
var
myFile : TextFile;
begin
AssignFile(myFile, FileName);
if not FileExists(FileName) then
ReWrite(myFile);
Append(myFile);
WriteLn(myFile, Text);
CloseFile(myFile);
end;
Ps: Nur hier im Editor "entwickelt" ohne zu testen. Aber was ich damit meine/mache sollte hoffentlich klar sein.
//edit
Ups, jetzt erst gesehen das Du da Code rangepappt hattest, ich hatte Browser über Nacht offen...