procedure InserirCampoBLOB;
  begin
    sQuAux.Close;
    sQuAux.SQL.Clear;
    sQuAux.SQL.Add('Insert into tabela(Campo1, CampoBLOB) ' +
      ' Values(:Pcampo1,:CampoBLOB)' );
    sQuAux.ParamByName('Pcampo1').AsBCD:= CodigoChavePrimaria;
    // caminho passado como parametro à query
    sQuAux.ParamByName('PcampoBLOB').LoadFromFile('caminhodoarquivo', ftBlob);
    sQuAux.ExecSql;
  end;
 
  procedure AbrirCampoBLOB
  begin
    SquAux.Close;
    SquAux.SQL.Add('Select campo1, CampoBLOB from tabela Where Campo1 = :Pcod');
    SquAux.ParamByName('PCod').AsBCD := CodigoChavePrimaria;
    SquAux.Open;
    if SquAux.IsEmpty then
      ShowMessage('Arquivo não encontrado')
    else
    begin
      SquAuxDoc.SaveToFile('C:' + SquAuxCampo1.AsString + '.pdf');
      ShellExecute(Handle, 'open', PChar('C:'+SquAuxCampo1.AsString+'.pdf') ,
        '', '', SW_SHOWNORMAL);
    end;
    SqAux.Close;
  end;

Espero ter ajudado mais uma vez!
Abraços!

Valdomiro Farias de Andrade Júnior - Analista de Sistemas
Contato: procompanysistemas@infonet.com.br