해결하셨는지 모르겠는데 델마당 최근글에 좋은 예가 있어서 링크 합니다.

http://www.delmadang.com/cwb-bin/CrazyWWWBoard.exe?db=dmdlec3&mode=read&num=5227&page=1&backdepth=1

아폴론 님이 쓰신 글 :
: 실행파일을 FireBird 에 저장했습니다. 필드 타입은 BLOB로요
:
: 이넘을 읽어서 원하는 파일경로에 갔다 놓아야 하는데요...
: select Tprogram from ...
: open;
: FieldByName('Tprogram').asblob; //이리하는것인가요?
:
:  dn1 := FileCreate('C:\Package\Rosys\UNIcess.exe'); //해당경로에 실행화일생성..
:
:  dn2 := FileOpen(FieldByName('AD_PROG').AsVariant, fmOpenRead);
:  아..위가 문제네요.. FileOpen은 경로를 찾아 읽는데.. 디비에는 실행파일
:  자체가 입력되 있죠?...
:
: 어떻게 원하는 경로에 풀어 놓죠?...