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:
Código:
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.