From c4253c4e0429c63b781f6166e78c86b04bfbb600 Mon Sep 17 00:00:00 2001
From: yamat0jp <terukohietori@gmail.com>
Date: Fri, 24 Jan 2020 06:43:32 +0900
Subject: [PATCH] =?utf8?q?=E8=A3=9C=E8=B6=B3=E3=81=97=E3=81=BE=E3=81=97?=
 =?utf8?q?=E3=81=9F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 tool/Unit2.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index a664e78..d0ca039 100644
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -139,6 +139,7 @@ begin
   Edit3.Text := '”nŽ­,ˆ¢•Û,Ž€‚Ë,ŽE‚·';
   Edit6.Text := 'admin';
   ComboBox1.Text := 'info';
+  ComboBox1Select(nil);
   UpDown1.Position := 30;
   UpDown1Click(nil, btNext);
   CheckBox1.Checked := false;
@@ -163,6 +164,11 @@ procedure TForm1.Button6Click(Sender: TObject);
 begin
   if Edit6.Text <> '' then
     FDTable2.FieldByName('password').AsString := hash(hash(Edit6.Text));
+  if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then
+  begin
+    ComboBox1.ItemIndex := 0;
+    ComboBox1Select(nil);
+  end;
   FDTable2.Post;
   FDTable2.Edit;
 end;
-- 
2.11.0