//Получение списка файлов из ShellListView в Lazarus - пример

var
  Form1: TForm1;
  fn:longint; 
  
procedure TForm1.MenuItem6Click(Sender: TObject);
var n:longint;
begin
  fn:=ShellListView1.Items.Count;
  for n:=0 to (fn-1) do
  begin
   ListBox1.items.Add(ShellListView1.Items.Item[n].Caption);
   Memo1.Lines.Add(ShellListView1.Items.Item[n].Caption);
  end;
end;