ListView - zapisywanie do pliku wraz z ImageIndex

Jak zapisać dane (poprzez SaveDialog) i odczytac (loadDialog) wraz z uwzględnieniem indexów obrazków które listview pobiera z ImageList ?

*OpenDialog [green]

Łącznie z poukładanymi obrazkami z TImageList
Przypomnę że było to już na forum.

// zapis do pliku
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TFileStream;
begin
  F := TFileStream.Create('plik.dat', fmCreate or fmShareCompat);
  try
    F.WriteComponent(ListView);
  finally
    F.Free;
  end;
end;

// odczyt z pliku
procedure TForm1.Button2Click(Sender: TObject);
var
  F: TFileStream;
begin
  F := TFileStream.Create('plik.dat', fmOpenRead or fmShareDenyWrite);
  try
    F.ReadComponent(ListView);
  finally
    F.Free;
  end;
end;