Сравнение даты изменения двух файлов с использованием edit

fileName := Edit1.text+'\*.*' ;

procedure TForm1.Button2Click(Sender: TObject);
var  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
  fileName   : string;
    fileName1   : string;
   fileDate   : Integer;
      fileDate1   : Integer;
begin
 
FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
 
 
 
StrPCopy( frombuf, Edit1.Text+'*.txt' ); // от куда
StrPCopy( tobuf, Edit2.Text+'*.txt' ); // куда
with OpStruc do begin Wnd := Handle; wFunc := FO_COPY;
pFrom := @frombuf; pTo := @tobuf;
 // Попытка открыть файл Unit1.DCU для текущего проекта
fileName := Edit1.text+'\*.txt'  ;
fileName1 := Edit2.text+'\*.txt'  ;
   fileDate := FileAge(fileName);
   fileDate1 := FileAge(fileName1);
 
  // Мы получали возраста файла?
   if fileDate > -1 then
      if fileDate1 > -1 then
                 if filedate >filedate1 then
 
fFlags := FOF_NOCONFIRMATION or FOF_WANTMAPPINGHANDLE ; //копирует и заменяет существующие
fAnyOperationsAborted := False; hNameMappings := Nil;
lpszProgressTitle := Nil; end; ShFileOperation( OpStruc );
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  i : Integer;
  SR : TSearchRec;
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
begin
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( tobuf, Edit2.Text ); // куда
  with OpStruc do
  begin
    Wnd := Handle; wFunc := FO_COPY;
    pFrom := @frombuf; pTo := @tobuf;
    fFlags := FOF_NOCONFIRMATION or FOF_WANTMAPPINGHANDLE ; //копирует и заменяет существующие
    fAnyOperationsAborted := False; hNameMappings := Nil;
    lpszProgressTitle := Nil;
  End;
 
  If FindFirst(Edit1.Text+'*.*',faAnyFile,SR)=0 Then
  Repeat
    If (Sr.name='.') Or (Sr.name='..') Then Continue; //Директория
    i:=FileAge(Edit2.Text+Sr.name);
    If i<>-1 Then
    If Sr.Time>i Then
    Begin
      ShFileOperation(OpStruc);
      FillChar( frombuf, Sizeof(frombuf), 0 );
      StrPCopy( frombuf, Edit1.Text+Sr.name ); // откуда
    End;
 
    Application.ProcessMessages;
  Until FindNext(SR)<>0;
  FindClose(SR);
end;

    If i<>-1 Then //Эту строку можно убрать (тогда будет копировать если в приёмной директории такого файла нет вообще)
    If Sr.Time>i Then
    Begin
      FillChar( frombuf, Sizeof(frombuf), 0 );
      StrPCopy( frombuf, Edit1.Text+Sr.name ); // откуда
      ShFileOperation(OpStruc);
    End;