如何让ShellListView控件只显示固定的几个文件

我搜索到了一 些文件   怎么让这些文件  放到ShellListView里呢！ 现在我是放在listbox里面
procedure TForm1.Button2Click(Sender: TObject);
var
sr:tsearchrec;
i:integer;
begin
i:=self.ShellListView1.ItemIndex;

 self.ListBox1.Items.Clear;
 self.ShellListView1.Items.Clear;
 if findfirst('d:\picturelook\images\*1*.jpg',faAnyFile,sr)=0  then
 begin
  while findnext(sr)=0 do
  begin
//self.ShellListView1.GetNamePath:=sr.Name;
self.ListBox1.Items.Add(sr.Name);
  end;
  findclose(sr);
 end;
end;