・板一覧更新の処理メッセージを追加

[gikonavigoeson/gikonavi.git] / IndividualAbon.pas

diff --git a/IndividualAbon.pas b/IndividualAbon.pas
index d057d39..c9ea922 100644 (file)
--- a/IndividualAbon.pas
+++ b/IndividualAbon.pas
@@ -4,15 +4,17 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, Buttons;
+  Dialogs, StdCtrls, Buttons, ExtCtrls;
 
 type
   TIndividualAbonForm = class(TForm)
-    ComboBox1: TComboBox;
-    Label1: TLabel;
-    Button1: TButton;
-    BitBtn2: TBitBtn;
+    Panel1: TPanel;
     BitBtn1: TBitBtn;
+    BitBtn2: TBitBtn;
+    Button1: TButton;
+    Panel2: TPanel;
+    Label1: TLabel;
+    ComboBox1: TComboBox;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -158,7 +160,7 @@ end;
 procedure TIndividualAbonForm.BitBtn2Click(Sender: TObject);
 var
        NGFile: TStringList;
-       i, j: Integer;
+       i{, j}: Integer;
 
        str: String;
 begin