紧急求助！关于备份保存数据名字问题

程序中需要处理如下内容：登录时候保存登录的代码，备份数据时间将代码加在备份文件名的后面。
如果我在dfile:=SaveDialog1.filename;加上登录过来的变量即：
dfile:=SaveDialog1.filename+t_sb;保存的名称为*.db99(99是等录过来的变量数值)问如何更改为*99.db(*是自定义的文件名称)？
SaveDialog1的defaultext:*.db
             filter:Parodox数据库[*.db]|*.db代码如下：
var   currdir:String[255];
   sfile,dfile:string;
    bsave:Boolean;//定义变量
begin
   if SaveDialog1.Execute then
  begin
    sfile:=currdir+'\db\jbqk.db'; 
    dfile:=SaveDialog1.filename;
    if FileExists(dfile) then
    if MessageDlg('上报文件已经存在，是否确定删除?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      DeleteFile(dfile);
    bsave:=copyfileto(sfile,dfile);
    if bsave then showmessage('数据上报文件完成') else showmessage('数据上报文件没有完成');;
  end;