(Delphi XE) Salvare il contenuto della ListView in un file di testo

[camaleonteplus]

Con questo codice mi dovrebbe salvare il contenuto di una ListView in un file:

procedure TForm1.Button4Click(Sender: TObject);
var
   i, h: integer;
   list: TStringList;
begin
    List:= TStringList.Create; //crea la lista di stringhe
    try
    for i:= 0 to ListView2.Items.Count - 1 do
begin
        List.Add (ListView2.Items[i].Caption;
        List.Add('@' + IntToStr(ListView2.Items[i].ImageIndex));
        for h:= 0 (ListView2.Items[i].SubItems.Count - 1 do
        List.Add(#9 + ListView2.Items[i].SubItems[h]);
    end;
   List.SaveToFile(ExtractFilePath(Application.ExeName) + 'Ospiti.txt')
   finally
       List.Free;
   end;
end;

Ma non capisco perchè su questa riga:

for h:= 0 ListView2.Items[i].SubItems.Count - 1 do

mi da questo errore:
[DCC Error] Unit1.pas(204): E2029 'TO' expected but identifier 'ListView2' found
Chiedo aiuto agli esperti.