・警告の排除。

[gikonavigoeson/gikonavi.git] / Giko.pas

diff --git a/Giko.pas b/Giko.pas
index 0eb8c45..6a37411 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -3140,7 +3140,7 @@ var
 //     HtmlName: string;
        doc: Variant;
        s: string;
-       OldCursor: TCursor;
+//     OldCursor: TCursor;
        //i: Integer;
 begin
        while (Browser.ReadyState <> READYSTATE_COMPLETE) and
@@ -7533,6 +7533,8 @@ begin
                end;
        end;
 
+       Result := nil;
+
 end;
 
 procedure TGikoForm.SetToolBarPopup;