[Decoding]

Такой вариант подойдет?

Сохранить

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TFileStream;
begin
   FileStream := TFileStream.Create( 'C:\ListView.sav', fmCreate );
   FileStream.WriteComponent( ListView1 );
   FileStream.Free;
end;

Прочитать

Код:

 
procedure TForm1.Button3Click(Sender: TObject);
var
  FileStream: TFileStream;
begin
   if FileExists( 'C:\ListView.sav' ) then
   begin
      FileStream := TFileStream.Create( 'C:\ListView.sav', fmOpenRead );
      ListView1 := FileStream.ReadComponent( ListView1 ) as TListView;
      FileStream.Free;
   end;
end;