Удаление файлов

[ыыф]

Очень нужна помощь.
есть код
Код Delphi

var
filename: string;
mindate:tdatetime;
 FreeSizeGb: Extended ;
 FreeSize,
  FreeBytesAvailableToCaller,
  TotalSize : Int64;
begin
 GetDiskFreeSpaceEx(Pchar(edit2.text), FreeBytesAvailableToCaller, Totalsize, @FreeSize);
  FreeSizeGb := FreeSize / (1024*1024*1024);
  Edit4.text := FormatFloat('#,###,###,###', FreeSizeGb );
  if FreeSizeGb  <=231   then begin
   ShowMessage('Мало места на диске. Идёт очистка');
   filename:='';
   mindate:=Now;
   if FindFirst(Edit2.text+'\*.*', faAnyFile, searchResult) = 0 then
   repeat
 
     if not((searchResult.Name='.') or (searchResult.Name='..'))
        and (searchResult.time< mindate)  then begin
       mindate:=searchResult.time;
       filename:=searchResult.Name;
     end;
   until FindNext(searchResult) <> 0;
   FindClose(searchResult);
   if FileName<>'' then DeleteFile (filename);
  end;

вроде всё нормально и логично ошибок не выбивает.
запускается но не удаляет файлы.
Пробывал в DeleteFile (filename); добавлять rdit2.text+'\'+

[Человек_Борща]

if FileName<>'' then DeleteFile (filename);

внутри цикла должно быть.