[Sagat]

Подскажите пожалуйста
в чём ошибка в коде.
так как он прост копирует тупо всё и условие не смотрит

Код:

  if FindFirst(Edit1.text+'\*.*', faAnyFile, searchResult) = 0 then
repeat
if fileDate > -1 then
      if fileDate1 > -1 then
                 if filedate >filedate1
                 then
 CopyFile(Pchar(Edit1.Text+'\'+searchResult.Name), Pchar(Edit2.Text+'\'+searchResult.Name),true)