How to make loop to delete selected items in directory

Question

I want to make a loop so selected items in my listview delete from the directory.

procedure TFContact.BtnDeleteClick(Sender: TObject);
var
SecItem, BUFPath : string;
i : Integer;
begin
   if ListViewTab5.Selected <> nil then

    for i := 0 to ListViewTab5.Items.Count - 1 do
    begin
    SecItem:= TListViewItem(ListViewTab5.Selected).Text;
    BUFPath:= '/storage/emulated/0/Backup/'+SecItem;
    TFile.Delete(BUFPath);
    end
    else
    ShowMessage('File Deleted Succesfully');
end;

Answer 1

Try this:

procedure TFContact.BtnDeleteClick(Sender: TObject);
const
  Path = '/storage/emulated/0/Backup/';
var
  Item: TListViewItem;
begin
  for Item in ListView.Items do
    if Item.Checked then
      TFile.Delete(TPath.Combine(Path, Item.Text));
end;