sqlserver备份 怎么显示状态条

sqlserver备份 如何显示状态条
用sqlserver客户端备份数据库有状态条显示，
procedure   TFrmMain.NSystBackupClick(Sender:   TObject);
var   strFile:string;
begin
    //     数据库备份
    SaveDlgData.Filter:= 'All   files   (*.*)|*.* ';
    SaveDlgData.FileName:= 'DataBack '+DateToStr(now);

    if   SaveDlgData.Execute   then
    begin  
        strFile:=SaveDlgData.FileName;
        DataModuleMain.ADOQBack.Close;
        DataModuleMain.ADOQBack.SQL.Clear;
        DataModuleMain.ADOQBack.SQL.Add( 'backup   database   asSafeRailPort   to   disk= ' ' '+strFile+ ' ' '   ');
       
        try
            DataModuleMain.ADOQBack.ExecSQL;

            Application.MessageBox(pchar( '数据库已经备份到 '+strFile+ '! '), '提示 ',MB_OK+MB_ICONINFORMATION   );
 
        except
            Application.MessageBox( '文件写入错误！ ', '错误 ',MB_OK+MB_ICONERROR   );  
        end;

    end;
end;
这段程序直接备份数据库是可以的，但是怎样让他显示出那个状态条呢

------解决方案--------------------
有接口的
网上搜一下，很多的
------解决方案--------------------
SQLDOM