List index out of bounds (10)

[lucius]

Hallo Leute, ich hab ne Save und Load Function fuer eine Listview, das speichern geht gut aber wenn ich die File wieder im Listview laden moechte und Sie mehr als 10 Eintraege hat kriege ich ein List index out of bounds error.
Kann mir da jemand bitte helfen?
Dank im voraus.

Delphi-Quellcode:

procedure TMainForm.LoadAsActionExecute(Sender: TObject);
begin
  with OpenDialog do
  begin
  If Execute then
    begin
    ListView.Items.Clear;
    LoadListViewToFile(ListView, FileName);
    end
  else
    exit;
  end;
end;