Чтение и запись данных из множества ListBox в один файл.

var
  Sd : TSaveDialog;
begin
  Sd := SaveDialog1;
  if not Sd.Execute then Exit;
  ListBox1.Items.SaveToFile(Sd.FileName);
end;

SaveDialog1.DefaultExt := '.txt';

//Диалог открытия файла.
procedure TForm1.Button1Click(Sender: TObject);
var
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( ParamStr(0) )
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
 
  ListBox1.Items.LoadFromFile(Od.FileName);
end;
 
//Диалог записи в файл.
procedure TForm1.Button2Click(Sender: TObject);
var
  Sd : TSaveDialog;
  Res : Integer;
begin
  Sd := SaveDialog1;
  if Sd.InitialDir = '' then
    Sd.InitialDir := ExtractFilePath( ParamStr(0) )
  ;
  if not Sd.Execute then Exit;
  if FileExists(Sd.FileName) then begin
    Res := MessageDlg(
      'Файл с заданным именем уже существует. Перезаписать?'
      ,mtConfirmation, [mbYes, mbNo], 0
    );
    if Res = mrNo then Exit;
  end;
 
  ListBox1.Items.SaveToFile(Sd.FileName);
end;

//Чтение из файла.
procedure TForm1.Button1Click(Sender: TObject);
var
  F : TextFile;
  S, Name : String;
  i, Len : Integer;
  Lb : TListBox;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( ParamStr(0) )
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
 
  //Очистка листбоксов.
  for i := 0 to Self.ComponentCount - 1 do begin
    if not (Self.Components[i] is TListBox) then Continue;
    Lb := Self.Components[i] as TListBox;
    Lb.Clear;
  end;
 
  //Чтение строк, предназначенных для разных ListBox.
  AssignFile(F, Od.FileName);
  Reset(F);
 
  Lb := ListBox1;
  while not Eof(F) do begin
    Readln(F, S);
    //Отслеживаем строки-заголовки с информацией о том,
    //для какого ListBox предназначены строки.
    if Copy(S, 1, 10) = '----------' then begin
      Len := Length(S);
      Name := Copy(S, 11, Len - 10);
      Lb := TListBox( Self.FindComponent(Name) );
      //Пропускаем строку загловка.
      Continue;
    end;
    //Записываем данные в ListBox, только если такой ListBox существует.
    if Lb <> nil then Lb.Items.Add(S);
  end;
 
  CloseFile(F);
end;
 
//Запись в файл.
procedure TForm1.Button2Click(Sender: TObject);
var
  Sd : TSaveDialog;
  i, Res : Integer;
  S : String;
  Fs : TFileStream;
  Lb : TListBox;
begin
  Sd := SaveDialog1;
  if Sd.InitialDir = '' then
    Sd.InitialDir := ExtractFilePath( ParamStr(0) )
  ;
  if not Sd.Execute then Exit;
  if FileExists(Sd.FileName) then begin
    Res := MessageDlg(
      'Файл с заданным именем уже существует. Перезаписать?'
      ,mtConfirmation, [mbYes, mbNo], 0
    );
    if Res = mrNo then Exit;
  end;
 
  Fs := TFileStream.Create(Sd.FileName, fmCreate, fmShareDenyWrite);
  
  for i := 0 to Self.ComponentCount - 1 do begin
    if not (Self.Components[i] is TListBox) then Continue;
    Lb := Self.Components[i] as TListBox;
    //Формируем строку заголовка - помещаем в неё метку из знаков "-"
    //и сведения о том, какому ListBox будут принадлежать строки.
    S := '----------' + Lb.Name + #13#10;
    //Запись строки-заголовка.
    Fs.Write(Pointer(S)^, Length(S));
    //Запись содержимого ListBox.
    Lb.Items.SaveToStream(Fs);
  end;
  
  Fs.Free;
end;