ShellListView selected in die ListBox

[The Re@l]

Code:

procedure TForm3.Button3Click(Sender: TObject);
var
  files: string;
  i: integer;
begin


 for i:=0 to ShellListView1.SelCount-1 do
 begin
    files := ShellListView1.Folders[ShellListView1.GetNextItem(ShellListView1.Selected,
              sdAll,[isSelected]).Index+i-1].PathName;

  ListBox1.Items.Add(files);

  end;
    end;

Hi

Ich habe das Problem, das wenn ich 2 oder mehr Dateien Selektiere dann funzzt alles wunderbar, nehm ich aber nur eine Datei und will diese hinzufügen bekomme ich eine zugriffsverletzung. Hat da einer ne idee woran das liegt.

Gruß
The Re@l

[The Re@l]

Hi

Hat sich schon erledigt, habs anders gemacht und funktioniert :)

Gruß
The Re@l