must free tdnswinasync in tdnsasync destructor

git-svn-id: file:///svnroot/lcore/trunk@126 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/dnsasync.pas b/dnsasync.pas
index b6e89417b3f94eff982ab846ac6f09a060e78d4c..c13f6ab717d3cc77da3e778fdd40c1d73f94e8f6 100644 (file)
--- a/dnsasync.pas
+++ b/dnsasync.pas
@@ -109,6 +109,14 @@ begin
       setstate_request_init('',states[socketno]);\r
     end;\r
   end;\r
       setstate_request_init('',states[socketno]);\r
     end;\r
   end;\r

+\r
+  {$ifdef mswindows}\r
+  if assigned(dwas) then begin\r
+    dwas.release;\r
+    dwas := nil;\r
+  end;\r
+  {$endif}\r
+\r

   inherited destroy;\r
 end;\r
 \r
   inherited destroy;\r
 end;\r
 \r