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

//Получение списка файлов из 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;