procedure TForm1.Button1Click(Sender: TObject);
var fstrm : TFileStream;
    BS : TBlobStream;
begin
   with ADOQuery1 do begin  // 隨你喜歡，看是要用ADO還是BDE，只要能支持BLOB欄位格式的Database都可以
      SQL.Clear;
      SQL.Add('SELECT A,B,C FROM DATAX WHERE A=1');  // 我亂掰的，自己依需求修改一下
      EXECSQL;
      OPEN;
      fstrm:=TFileStream.Create('C:\AUTOEXEC.BAT',fmOpenRead OR fmShareDenyWrite);
      fstrm.Seek(soFromBeginning,0);
      if fstrm.size>0 then begin
         if recordcount=0 then  // SELECT 得到記錄就修改該筆記錄，找不到就新增一筆
            APPEND
         else 
            edit;
         BS:=TBlobStream(CREATEBLOBSTREAM(FIELDBYNAME('C'),bmWrite));  // C欄位是BLOB格式，用IMAGE可以支援到2G，用多少才佔多少實体空間
         BS.CopyFrom(fstrm,0);
         BS.Free;     // 啥感覺都沒就寫入了到SQL了...當然，有安全顧慮的系統，要自己修改一下
         post;
      end
      else showmessage('無法加入其他文件夾的資料');
      freeandnil(fstrm);
      CLOSE;
   END;
end;
從SQL讀回來的方法
   fstrm:=TFileStream.Create('C:\AUTOEXEC.BAK',fmCreate); // 故意寫成BAK的，免得寫壞了害你不能開機
   fstrm.CopyFrom(CREATEBLOBSTREAM(FIELDBYNAME('C'),bmRead),0);
   freeandnil(fstrm);