با سلام من از اين كد استفاده كردم. پيغام پشتيبان گيري با موفقيت انجام شد رو ميده ولي هيچ كاري انجام نميده. يعني هيچ بك آپ اي نميگيره.
ADOCommand1.CommandText:='use TadbirAsak91 BACKUP DATABASE TadbirAsak91 TO DISK='+QuotedStr (ExtractFilePath(Application.ExeName)+'backup\MYBA  CKUP.Bak');

ADOCommand1.execute;

ShowMessage('پشتيبان گيري با موفقيت انجام شد');