Problema con SaveDialog

[krlox31416]

Buen día Efren2006 espero esto te pueda ayudar o por lo menos puedas hacer algunas modificaciones este codigo utiliza un componente ShellTreeView dependiendo de la ruta en que desees respaldar dale un click y despues dale aceptar(puedes ponerle el nombre que quieras al boton o bitbtn) deacuerdo al sig. código.

Código Delphi [-]
procedure TForm24.BitBtn1Click(Sender: TObject);
var PathDestino, Origen, aPath, Destino, my_mensaje : string;
sr: TSearchRec;// para definir el tipo de busqueda
begin
my_mensaje:='Y se han guardado en la siguiente ubicación.'+#13;
PathDestino := ShellTreeView1.SelectedFolder.PathName+'\[ Respaldo Base de Datos Sistema Caja ]'; //creamos el nombre de mi carpeta y concatenamos al directorio
if not DirectoryExists(PathDestino) then // verifica que no exista una carpeta con el nombre Respaldo al directorio destino
   begin
   aPath := 'C:\sistema_caja\base de datos\';//asignamos el origen de mis tablas
   if FindFirst(aPath + '*.db', faAnyFile, sr) = 0 Then  //busca el primer archivo .db o cualquiera
   repeat
   CreateDir(PathDestino); //Creamos el directorio ...................
   Origen := aPath+sr.Name;//directorio origen o path
   Destino :=  PathDestino+'\'+ sr.Name; //aqui agregamos las tablas a la carpeta
   CopyFile(PChar(Origen), PChar(Destino), False);// copiamos de mi origen al destino
   until FindNext(sr) <> 0;// hacer todo el recorrido hasta encontrar mi archivo
   SysUtils.FindClose(sr);//cerramos la busqueda del archivo
   Application.MessageBox('Las bases de datos se han respaldado ! ! ! ','Información',MB_ICONINFORMATION);
   MessageDlg( my_mensaje + ShellTreeView1.SelectedFolder.PathName + '\[ Respaldo Base de Datos Sistema Caja ]',mtInformation,[mbOK],0);
   end
   else
   begin
   Application.MessageBox('La carpeta ya existe.','Error',MB_ICONERROR);
   Application.MessageBox('Por el momento no es necesario respaldar en esta ubicación ! ! !','Suerte',MB_ICONINFORMATION);
   end;
end;

Nota: Si deceas guardar un excel o word basta cambiar la extención del archivo *.db por *.xls *.doc etc.

Saludos y espero que esto sea lo que buscas! : )