Fórum Enviar Item de ListBox para ListView com o comando "FOR" #406509

procedure TForm1.Button2Click(Sender: TObject);
var
 i,f,a:integer;
 item:TListItem;
 tagid3:ID3Struct;
begin

ListView2.Clear;
TabSheet4.TabVisible:=true;
PageControl1.ActivePage:=TabSheet4;

for i:=0 to ListView1.Items.Count-1 do
 if ListView1.Items.Item[i].Checked then
  begin
    ListBox1.Clear;
    listbox1.Items.BeginUpdate;
    FileSearch(ListView1.Items.Item[i].SubItems[0],'*.mp3',listbox1,(LowerCase(ListView1.Items.Item[i].SubItems[1])=LowerCase('sim')));
    listbox1.Items.EndUpdate;

     for a:=ListBox1.Items.Count-1 downto 0 do
       for f:=0 to ListBox2.Items.Count-1 do
        If Pos(LowerCase(ListBox2.Items[f]),LowerCase(ListBox1.Items[a]))>0 then
         ListBox1.Items.Delete(a);

    for a:=0 to ListBox1.Items.Count-1 do
     if FileExists(ListBox1.Items[a])=true then
     begin
      Item:=ListView2.Items.Add;
      ID3.Active:=false;
      ID3.FileName:=ListBox1.Items[a];
      ID3.Active:=true;
      item.Caption:=RemoveExt(nome(ListBox1.Items[a]));
      item.SubItems.Add(RemoveExt(nome(ListBox1.Items[a])));
      item.SubItems.Add(ID3.SongName);
      item.SubItems.Add(ID3.Artist);
      item.SubItems.Add(ID3.Album);
      item.SubItems.Add(ListBox1.Items[a]);
     end;
  end;
TabSheet4.TabVisible:=False;
PageControl1.ActivePage:=TabSheet2;
Label5.Caption:='Total :'+IntToStr(ListView2.Items.Count);
end;