записать содержимое Listview в файл

[Leo20]

procedure TForm4.Button2Click(Sender: TObject);
var
  FileStream: TFileStream;
  Writer: TWriter;
  I: Integer;
begin
  FileStream :=
    TFileStream.Create('c:\stream.txt',
    fmCreate or fmOpenWrite or fmShareDenyNone);
  Writer := TWriter.Create(FileStream, $FF);
  Writer.WriteListBegin;
  for i:=0 downto form4.ListView1.Items.Count-1 do
  begin
  Writer.WriteString(form4.ListView1.Items[i].SubItems.Strings[0]);
  showmessage(form4.ListView1.Items[0].SubItems.Strings[0]);
  end;
  Writer.WriteListEnd;
  Writer.Destroy;
  FileStream.Destroy;
end;

такой способ не прокатил почему-то О.о
помогите плиз)