маленькая проблема с TsShellListView(AlphaSkins)

[abzhapparovmaxat]

Объясните или помогите мне. Использую этот компоненет TsShellListView(AlphaSkins), накладываю на событие OnChange вот такой вот код

procedure TForm1.sShellListView1Change(Sender : TObject; Item: TListItem;
Change: TItemChange);
var
PathToFile : string;
begin
PathToFile := sShellListView1.Folders[sShellListView1.ItemIndex].PathName;
end;

То есть хочу узнать путь к выделенному файлу при изменении положения выделения, но только изменив положение выделения, выскакивает сообщение "List index out of bounds (-1)"

Что делать?