確かに間違ってました、しかしほかに問題があります。

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index 7790a9d..f0892b6 100644 (file)
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -66,8 +66,7 @@ begin
   begin
     t := TResourceStream.Create(HInstance, 'Resource_' + i.ToString, RT_RCDATA);
     FDTable1.AppendRecord([i,Format('slide%d.jpg',[i]),nil]);
-    img.SaveToStream(t);
-    FDTable1.Post;
+    streamToField(t);
     t.Free;
   end;
   FDTable1.ApplyUpdates;