items i shelllistview

prøv det her :
procedure TForm1.Button1Click(Sender: TObject);
var
  StringList : TStringList;
  i : Integer;
  aItem : TListItem;
begin
  StringList := TStringList.Create;
  for i :=0 to ShellListView1.Items.Count -1 do
  begin
    aItem := ShellListView1.Items[i];
    if aItem.Selected then
      StringList.Add(aItem.Caption);
  end;
  ShowMessage(StringList.Text);
  StringList.Free;
end;

den viser ingen tekst, men man kan tydeligt se at den har tilføjet linier!

udskift aItem := ShellListView1.Items[i]; med aItem := ShellListView1.Folders[i];

(lige fra hukommelsen, så det ikke helt sikkert jeg har stavet rigtigt, men det noget i retningen, og det virker)

tak for hjælpen :)