[[seoane]]

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