не понятно!

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, Registry,DateUtils;
 
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
Dir, EndDir: string;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
Path: string;
begin
if SelectDirectory('Выберите папку','C:\Users\1\.borland\',Path) then Edit1.Text:= Path;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
Path: string;
begin
if SelectDirectory('Выберите папку','C:\Users\1\.borland\',Path) then Edit2.Text:= Path;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
SR: TSearchRec;
I: Integer;
inf: TDAtetime;
begin
Dir := IncludeTrailingBackslash(Dir); //добавляем слеш если нет в конце
EndDir := IncludeTrailingBackslash(EndDir); // то же
if not DirectoryExists(Dir) then // если папка отсутствует - выходим
Exit;
if not DirectoryExists(EndDir) then // то же
Exit;
I := FindFirst(Dir + '*', faAnyFile, SR);// начинаем перебирать файлы
Application.ProcessMessages;
try
while I = 0 do
begin
if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then
begin
try
inf:= FileDateToDateTime(FileAge(Dir + SR.Name));//находим дату изменения
except
continue;
end;
if DaysBetween(Date,inf)>= 1 then //находим разность текущей даты и даты файла
begin
//перемещаем файл в новую папку
CopyFile(PChar(Dir + SR.Name),PChar(EndDir + SR.Name), False);
DeleteFile(Dir + SR.Name); //удаляем из старой
end;
end;
I := FindNext(SR);
end;
finally
FindClose(SR);
end;
 
end;
 
end.