how can i know the backup rate of progress?

i have a stored procedure.
Create Proc BackupDB
  @DBName varchar(300), @FileName Varchar(300)
as
 Backup database @DBName to disk=@FileName
GO
how can i know the backup rate of progress in delphi?
i use ms sql server 2000 and delphi5.