Receber data ao nome do arquivo

Estou usando firebird e delphi 7 componentes rxlib.

Possuo esta rotina para realizar backup que ao clicar no botao

ela gera um arquivo de backup com o nome CopiaSegAgentel.fdb

Gostaria que gerasse algo assim: CopiaSegAgenteldatadodia.fdb

procedure TFormCopiaSeg.BTNbackupClick(Sender: TObject);
begin
if febanco.FileName = '' then
begin

 //Showmessage('Indique onde esta seu Banco');
 messagebeep(16);
 messagebox(FormCopiaSeg.Handle,'Informe aonde esta'#13'localizado o Banco de Dados!','AgenTel - Copia de Seguranca',mb_Ok+MB_ICONQUESTION);
 febanco.SetFocus;
 Abort;
 end;
 if debackup.Text = '' then
 begin
 //Showmessage('Indique onde irá Gravar o Backup');
 messagebeep(16);
 messagebox(FormCopiaSeg.Handle,'Informe o local aonde'#13'ira gravar a Copia'#13'de Seguranca!','AgenTel - Copia de Seguranca',mb_Ok+MB_ICONQUESTION);
 deBackup.SetFocus;
 Abort;
 end;
 with IBBackupService1 do
 begin
 Params.Clear;
 BackupFile.Clear;
 ServerName := 'localhost';
 LoginPrompt := False;
 Params.Add('user_name=SYSDBA');
 Params.Add('password=masterkey');
 Active := True;
 try
 Verbose := True;
 Options := [NonTransportable, IgnoreLimbo];
 DatabaseName := feBanco.FileName;
 BackupFile.Add(deBackup.Text+'/'+'CopiaSegAgenTel.fdb');
 ServiceStart;
 While not Eof do
 mmBackup.Lines.Add(GetNextLine);
 finally
 Active := False;
 end;
 end;
 //ShowMessage('Backup Efetuado com Sucesso');
 messagebeep(16);
 messagebox(FormCopiaSeg.Handle,'Copia de Seguranca realizada com Sucesso!','AgenTel - Copia de Seguranca',mb_Ok+MB_ICONQUESTION);
end;

Esta e a linha a ser modificada.

BackupFile.Add(deBackup.Text+'/'+'CopiaSegAgenTel.fdb');

Aguardo resposta. Obrigado.