Entiendo que quieres guardar varios TStringList en el mismo archivo de texto así que queda descartado el uso de SaveToFile, para eso tenemos SaveToStream.
Por ejemplo:
Código Delphi
[-]
var
Stream: TFileStream;
begin
Stream:= TFileStream.Create('C:\1.txt',fmCreate);
try
Lista1.SaveToStream(Stream);
Lista2.SaveToStream(Stream);
Lista2.SaveToStream(Stream);
... etc ...
finally
Stream.Free;
end;
end;
... o tambien puedes usar Write en vez de Writeln