如何在程序中将一个已知的文件夹中的文件删除？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
        i:integer;
begin
        for i:=0 to listbox1.Items.Count-1 do
        begin
                deletefile(listbox1.items[i]);
        end;
end;

Answer 1

if FileExists(FileName) then  if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?'), []) = IDYes then 
    DeleteFile(FileName);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var ii,jj: Integer;
begin
  jj := 0;
  for ii := 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.Selected[jj] then
    begin
      DeleteFile(ListBox1.Items.Strings[jj]);
      ListBox1.Items.Delete(jj);
      DEC(jj);
    end;
    INC(jj);
  end;
end;