Listview speichern in mehrere Dateien

[capo]

Delphi-Quellcode:

procedure TMain.Button13Click(Sender: TObject); 
var LCount1, LCount2: Integer; 
    LListe: TStringlist; 
    LStr: String; 
begin 
if SaveDialog1.Execute then 
  begin 
    LListe := TStringlist.Create; 
    for LCount1 := 0 to ListView1.Items.Count - 1 do 
    begin 
     LStr := ' '; 
      for LCount2 := 0 to ListView1.Items.Item[LCount1].SubItems.Count - 1 do begin
      if LCount2 = 0 then 
  LStr := LStr + '<ansicht>' + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]+'</ansicht>
' 
     else 
  LStr := LStr + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]+'
'
      LListe.Add(LStr); 
    end; 
    LListe.SaveToFile(SaveDialog1.FileName); 
    LListe.Free; 
  end; 
end;
end;
end;

Hallo,
angenommen in der Listview sind 300 Zeilen.
Wie kann ich alle 10 Zeilen in einer neuen Datei speichern?
Also die ersten 10 = 1. Datei
die nächsten 10 = 2. Datei
usw.

gruss vom capo