コンパイルが通っていませんでした

diff --git a/tool/Unit2.dfm b/tool/Unit2.dfm
index 703e569..0ae80f2 100644 (file)
--- a/tool/Unit2.dfm
+++ b/tool/Unit2.dfm
@@ -34,6 +34,13 @@ object Form1: TForm1
     Height = 13
     Caption = #35373#23450#29992
   end
+  object Bevel1: TBevel
+    Left = 20
+    Top = 280
+    Width = 575
+    Height = 50
+    Shape = bsTopLine
+  end
   object Button1: TButton
     Left = 296
     Top = 56

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index 86c7f50..a664e78 100644 (file)
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -58,6 +58,7 @@ type
     ComboBox1: TComboBox;
     Button6: TButton;
     Label3: TLabel;
+    Bevel1: TBevel;
     procedure Button1Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
@@ -139,7 +140,7 @@ begin
   Edit6.Text := 'admin';
   ComboBox1.Text := 'info';
   UpDown1.Position := 30;
-  UpDown1Click(nil);
+  UpDown1Click(nil, btNext);
   CheckBox1.Checked := false;
   CheckBox1Click(nil);
   FDTable2.Post;