Guardar archivos en campos

[repo]

Hola,
Quiero guardar archivos (*.pdf, *.dxf. *.jpg) en campos de FireBird, es decir por cada registro un archivo, ¿como puedo hacer esto?
Se que debo utilizar campos Blob, pero ¿como se haria?
Una vez grabado en la base de datos como lo saco de la BD y como lo vuelvo a grabar como archivo?

Muchas gracias

[delphi.com.ar]

Supongo que algo similar a esto tiene que funcionar (No lo he probado)

var
  AStream : TFileStream;
begin
  AStream := TFileStream.Create('c:\MiArchivo.ext', fmOpenRead);
  Try
     TBlobField(ADataSet.FieldByName('CAMPO') ).LoadFromStream(AStream);
   finally
     AStream.Free;
   end;
end;

Saludos!