No se si es esto lo que buscas.
Código Delphi
[-]
procedure TForm1.CopiaSeguridadDB1Click(Sender: TObject);
var
mCompresor,mArgumentoC,mArgumentoR: string;
begin
mCompresor := 'C:\Archivos de Programa\Winrar\Winrar.exe';
mArgumentoC := 'a -v -vd A:\Copiaseg C:\Carbatex\Db\*.*';
mArgumentoR := 'e -v A:\Copiaseg C:\Carbatex\Db';
ShellExecute(Form1.Handle,nil,PChar(mCompresor),Pchar(mArgumentoC),'',SW_SHOWNORMAL)
end;
No olviadr poner en Uses la unidad ShellApi.
Saludos.