This commit was manufactured by cvs2svn to create tag 'v1_62_0_809'.

[gikonavigoeson/gikonavi.git] / HintWindow.pas

diff --git a/HintWindow.pas b/HintWindow.pas
index 69c8b68..743e61c 100644 (file)
--- a/HintWindow.pas
+++ b/HintWindow.pas
@@ -182,9 +182,12 @@ end;
 procedure TResPopup.ClearAllRes;
 var
        i: Integer;
+    ResData: PResDataRec;
 begin
-       for i := 0 to FResList.Count - 1 do
-               Dispose(FResList[i]);
+       for i := 0 to FResList.Count - 1 do begin
+        ResData := FResList[i];
+               Dispose(ResData);
+    end;
        FResList.Clear;
        FTitle := '';
        Caption := '';