警告が出ないように修正

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 478c55b..482685c 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -537,7 +537,7 @@ begin
                Exit;
        Board.Clear;
        UnRead := 0;
-
+    is2ch := false;
        usePlugIn := Board.IsBoardPlugInAvailable;
     if not usePlugIn then begin
        GikoSys.ParseURI(Board.URL, protocol, host, path, document, port, bookmark );
@@ -1897,7 +1897,6 @@ end;
 function TGikoSys.DivideStrLine(Line: string): TResRec;
 var
        Delim: string;
-               bufbody : String;
 begin
        if AnsiPos('<>', Line) = 0 then begin
                //Delim := ',';
@@ -3949,7 +3948,6 @@ begin
 end;
 function TGikoSys.GetSameIDResCount(AIDNum : Integer; ThreadItem: TThreadItem):Integer;
 var
-       i: integer;
        body: TStringList;
 begin
        Result := 0;