Kopiering af ændrede filer i en mappe

Jeg har fundet nedenstående funktion på internettet og bruger den til at kopiere en hel mappe incl. undermapper.

Nu er mit problem at jeg kun ønsker at kopiere ændrede/nye filer, næste gang jeg kopierer mappen.
Kan functionen ændres på en eller anden måde så det kan lade sig gøre.

Jeg ved man kan anvende filers "arkiv-atribut" til at afgøre om en fil er blevet ændret. Jeg kan således godt finde ud af at kopiere en mappe på den måde, hvis den ikke indeholder undermapper.
Er der nogen der har en ide!!


uses
ShlObj, ShellApi, ComObj;

function KopierAlt(Kilde, Dest: string): LongInt;
var
  F: TShFileOpStruct;
  sKilde, sDestination: string;
begin
  Result := 0;
  sKilde := Kilde + #0;
  sDestination := Dest + #0;

  with F do
  begin
    Wnd := Application.Handle;
    wFunc := FO_COPY;
    pFrom := @sKilde[1];
    pTo := @sDestination[1];
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  end;

  Result := ShFileOperation(F);
end;


//Eht