[DANY]

Debes hacer una busqueda en el foro, el tema ya se ha tratado.

Código Delphi [-]
var Consulta: TADOQuery ;
begin
  inherited;
  try
    Consulta := TADOQuery.Create(nil);
    Consulta.Connection := fDatos.ADOConnection ;

    Consulta.SQL.Add(' BACKUP DATABASE '+ nombreBaseDeatos+' TO DISK = '+QuotedStr(RutaBaseDeDatos));
    Consulta.ExecSQL ;


    MessageDlg('El backup se ha realizado con exito', mtInformation  , [mbOK], 0);

  Finally

    FreeAndNil(Consulta );
    

  End;

Va de ejemplo con un adoQuery.
Saludos.