problem beim Dateien löschen

[SaFu]

die Datei erzeugt ein Server und das Tag für Tag

jetzt Funktioniert das löschen auch schon da die richtige Datei gefunden wird

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
Var iDurchlauf :Integer;
  SearchRec : TSearchRec;
begin
 for iDurchlauf:= 1 to ShellTreeView2.Items.Count - 1 do
  begin
   ShellTreeView2.Select(ShellTreeView2.Items[iDurchlauf]);
    AbDatumloeschen:= FormatDateTime('yyyy mm dd',Date- iTagevar) ;
    Label10.Caption:= (AbDatumLoeschen);

     if findfirst(ShellTreeView2.Path +'\Stats\Saga\'+ AbDatumLoeschen + '*.*',faAnyFile,SearchRec) = 0 then
      begin
       repeat
        showmessage(ShellTreeView2.Path +'\Stats\Saga\'+ SearchRec.Name);
        DeleteFile(ShellTreeView2.Path +'\Stats\Saga\'+ SearchRec.Name);

       until
       FindNext(SearchRec) <> 0;
      end;
   end;
end;

Soweit hab ich es jetzt nur 1 geht noch nicht

Wie mache ich es das alle Dateien die < als "AbDatumloeschen" sind gelöscht werden