お恥ずかしい間違い

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 29b534f..b500b88 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -775,11 +775,7 @@ begin
       begin
         Response.ContentType:='image/png';
         res:=TResourceStream.Create(HInstance,'PngImage_1',RT_RCDATA);
-        try
-          Response.ContentStream:=res;
-        finally
-          res.Free;
-        end;
+        Response.ContentStream:=res;
       end
       else
         Response.ContentStream:=nil;

diff --git a/tool/dbtool.dpr b/tool/dbtool.dpr
index b372ce3..243bda7 100644 (file)
--- a/tool/dbtool.dpr
+++ b/tool/dbtool.dpr
@@ -1,5 +1,7 @@
 program dbtool;
 
+
+
 uses
   FMX.Forms,
   Unit1 in 'Unit1.pas' {Form2};