[ecfisa]

Hola sisne el tema de los resguardos no es sencillo para exponerlo en pocas líneas. Hay muchas cosas que tomar en cuenta como el espacio disponible, manejo de errores físicos que pudieran presentarse, compresión de datos, resguardo incremental, etc, etc...

Pero te hago un simple código de copia de archivos desde Delphi, como para que empieces a trabajar sobre él:

procedure TForm1.Button1Click(Sender: TObject);
const
  Ori = 'C:\CarpetaOrigen\';
  Des = 'C:\CarpetaDestino\'; // Des, puede reemplazarse por Edit1.Text x ej. 
var
  sr: TSearchRec;
begin
  CreateDir(Des);
  if FindFirst(ORI+'*.*',faAnyFile, sr)= 0 then
  begin
   repeat
     CopyFile(PAnsiChar(Ori+sr.Name),PAnsiChar(Des+sr.Name),false);
   until FindNext(sr) <> 0;
  end;
  FindClose(sr);
end;

Saludos.