Проблема со Stream, Цикл (Delphi)

[[DisAssembleR]]

Добрый день (или вечер, у кого как ) необходима помощь.
Я не прошу предоставить мне исправленный код, просто подтолкните в нужном направлении.

Собственно, проблема.
Пытаюсь сделать утилитку, которая через поток записывает несколько произвольных выбранных пользователем файлов в другой, заранее подготовленный файл.
Все, что необходимо я уже реализовал, вопрос только в записи\чтении сразу нескольких файлов. С одним файлом все понятно, его я могу записать\прочитать, но вот с несколькими – пока глухо.
Была мысль использовать цикл, но мои эксперименты доказывают, что я делаю что-то не так, поскольку записываются данные неверно.
Может, что-то неправильно пояснил, но суть такая:
Пользователь выбрал файлы (образно - нижепредставленные):
Файл_1
Файл_2
По идее, цикл должен записать эти файлы так:
Файл_1
Файл_2
Однако когда я использовал цикл, получилось так:
Файл_2
Файл_2
То есть количество файлов пишется верно, но "внутренности" этих файлов одинаковы! Иначе говоря, я только что циклом записал последний файл, так сказать, продублировал его. И это меня огорчает.

Для самих данных записи организовал такой вот тип:

type
  TFHead = Packed record
  Name  : string[70];          
  Extension  :  string[10];     
  Size  :  dword;                          
end;

Один файл записываю так:

procedure SaveDataToArchive(FileName: string);
var
  Files: TFHead;
  FS: TFileStream;
begin
try
  Files._FileName := ListView2.Items.Item[ListView2.ItemIndex].Caption;
  Files._FileExtension := ListView2.Items.Item[ListView2.ItemIndex].SubItems[0];
  Files._FileSize := StrToInt(ListView2.Items.Item[ListView2.ItemIndex].SubItems[1]);
  Files._FileDateTimeCreate := StrToDate(ListView2.Items.Item[Form1.ListView2.ItemIndex].SubItems[2]);
  FS := TFileStream.Create(FileName, fmOpenWrite);
  FS.Seek(0, soFromBeginning);
  FS.WriteBuffer(Files, SizeOf(Files));
finally
  FS.Free;
end;
end;

С циклом пробовал так:

procedure SaveDataToArchive(FileName: string);
var
  Files: TFHead;
  FS: TFileStream;
  I: integer;
  Farr: Array [0..10] of Files; (Или надо использовать Farr: Array [0..10] of TFHead?)
begin
try
for i:=0 to ListView2.Items.Count – 1 do
begin
  Farr[i]._FileName := ListView2.Items.Item[ListView2.ItemIndex].Caption;
  Farr[i]._FileExtension := ListView2.Items.Item[ListView2.ItemIndex].SubItems[0];
  Farr[i]._FileSize := StrToInt(ListView2.Items.Item[ListView2.ItemIndex].SubItems[1]);
  Farr[i]._FileDateTimeCreate := StrToDate(ListView2.Items.Item[Form1.ListView2.ItemIndex].SubItems[2]);
  FS := TFileStream.Create(FileName, fmOpenWrite);
  FS.Seek(0, soFromBeginning);
  FS.WriteBuffer(Farr[i], SizeOf(Files));
finally
  FS.Free;
end;
end;

И таки выдает неверный результат, который опсиан в самом начале вопроса.
Подскажите, где намудрил в коде или может какой-нибудь иной прием использовать для записи?
Заранее спасибо!

[Аватар]

А чего это цикл по i, а в качестве индекса используется одно и то же - ListView2.ItemIndex? C чего ему зависеть от i?

for i:=0 to ListView2.Items.Count – 1 do
begin
  Farr[i]._FileName := ListView2.Items.Item[ListView2.ItemIndex].Caption;

[[DisAssembleR]]

Окей, изменил все в соответствии с указанным - все равно запсиывается все продублированно