Warum nimmst du nicht einfach eine Stringlist? Die scheint mir dafür geeigneter bzw. einfacher.
Delphi-Quellcode:
var
aStringList: TStringList;
aLogStr: String;
aFileName: String;
begin
aLogStr := DateTimeToStr(Now) + aSystemLogStr;
aFileName := vLogFile;
aStringList := TStringList.Create;
try
if FileExists(aFileName) then aStringList.LoadFromFile(aFileName);
aStringList.Add(aLogStr);
aStringList.SaveToFile(aFileName);
finally
aStringList.Free;
end;
end;