실행파일을 FireBird 에 저장했습니다. 필드 타입은 BLOB로요

이넘을 읽어서 원하는 파일경로에 갔다 놓아야 하는데요...
select Tprogram from ...
open;
FieldByName('Tprogram').asblob; //이리하는것인가요?

dn1 := FileCreate('C:\Package\Rosys\UNIcess.exe'); //해당경로에 실행화일생성..

dn2 := FileOpen(FieldByName('AD_PROG').AsVariant, fmOpenRead);
아..위가 문제네요.. FileOpen은 경로를 찾아 읽는데.. 디비에는 실행파일
자체가 입력되 있죠?...

어떻게 원하는 경로에 풀어 놓죠?...