View Full Code Snippet

var sl : TStringList;
Begin
    sl := TStringList.Create;
    if FileExists(FileName) then
        sl.LoadFromFile(FileName);
    sl.AddStrings(OtherStringList);
    sl.SaveToFile(FileName);
    sl.free;
end;