Datei suchen + löschen

[St.Pauli]

Hi, gibt es vieleicht ne möglichkeit, dass die Dateien in der ListBox nach der suche angezeigt werden und das man dann ein paar dateien auswählt und die dann wenn man auf einen anderen Button klickt, gelöscht werden?

Code:

procedure GetFilesInDirectory(Directory: String; const Mask: String; 
                              List: TStrings; 
                              WithSubDirs, ClearList: Boolean); 

procedure ScanDir(const Directory: String); 
var 
  SR: TSearchRec; 
begin 
  if FindFirst(Directory + Mask, faAnyFile - faDirectory, SR) = 0 then try 
    repeat 
      List.Add(Directory + SR.Name) 
    until FindNext(SR) <> 0; 
  finally 
    FindClose(SR); 
  end; 

  if WithSubDirs then begin 
    if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then try 
      repeat 
        if (SR.Attr = faDirectory) and 
           (SR.Name <> '.') and (SR.Name <> '..') then 
          ScanDir(Directory + SR.Name + '\'); 
      until FindNext(SR) <> 0; 
    finally 
      FindClose(SR); 
    end; 
  end; 
end; 

begin 
  List.BeginUpdate; 
  try 
    if ClearList then 
      List.Clear; 
    if Directory = '' then Exit; 
    if Directory[Length(Directory)] <> '\' then 
      Directory := Directory + '\'; 
    ScanDir(Directory); 
  finally 
    List.EndUpdate; 
  end; 
end; 
 



procedure TForm1.Button1Click(Sender: TObject); 
begin 
  GetFilesInDirectory('C:\', '*.abc', Listbox1.Items, True, True); 
  GetFilesInDirectory('C:\', '*.xyz', Listbox1.Items, True, False); 
end;