Updated tests of numeric keyboard

test/test_bcnumerickeyboard/umain.pas

@@ -101,7 +101,8 @@ end;
 
 procedure TForm1.FormClick(Sender: TObject);
 begin
-  Button1Click(NumericSender);
+  if NumericSender <> nil then
+    Button1Click(NumericSender);
 end;
 
 procedure TForm1.BCNumericKeyboard1Change(Sender: TObject);

test/test_bcrealnumerickeyboard/umain.pas

@@ -91,7 +91,8 @@ end;
 
 procedure TForm1.FormClick(Sender: TObject);
 begin
-  Button1Click(NumericSender);
+  if NumericSender <> nil then
+    Button1Click(NumericSender);
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);