Cómo extraer un documento pdf de una tabla

[GustavoCruz]

Gracias por tu respuesta Casimiro Notevi pero eso no me está funcionando.
y no entiendo en dónde pueda estar el problema.

El mensaje de error que me muestra es: Unable to create file "".

este es el código:

Código Delphi [-]
var
  archivo: String;
begin
  with fDatos do
    begin
      //archivo := nil;
      qArchivos.Open;
      TBlobField(qArchivosARCARCHIVO).SaveToFile(archivo);
//      ShellExecute(0, nil, nil, nil, SW_NORMAL);
      ShowMessage(archivo);
      ShellExecute(0, 'Open', PChar(archivo), '', '', SW_SHOW)
    end;

Gracias por vuestro tiempo


Gustavo Cruz