var listitem:TListitem;
begin
with ConfigorForm do
begin
if CheckDest(FileName) then
begin
listitem:=FindListview.Items.Add;
if ImageIndex<>0 then listitem.ImageIndex:= GetImgIndex(FileName) else
listitem.ImageIndex := ImageIndex;
listitem.Caption := extractfilename(FileName);
listitem.SubItems.add(MyDir);
listitem.SubItems.add(MyGroup);
StrListSearch.Add(' 工作组:'+GroupFunc(MyGroup)+' 地址:'+MyDir+'/'+FileName);
end;
...