OnGuard: Fix sample projects not loading. Activate themes in sample projects. Anchored layout of sample forms.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8707 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/onguard/examples/regdemo/reg_main.pas

@@ -15,13 +15,13 @@ type
   TregMain = class(TForm)
     Label1: TLabel;
     edtSerial: TEdit;
-    Memo1: TMemo;
     Label2: TLabel;
     edtMachine: TEdit;
     Label3: TLabel;
     edtRelease: TEdit;
     btnSave: TButton;
     btnReadme: TButton;
+    Memo1: TLabel;
     procedure Memo1Enter(Sender: TObject);
     procedure FormActivate(Sender: TObject);
     procedure btnSaveClick(Sender: TObject);
@@ -57,9 +57,8 @@ var
   SerialNum : longint;
 begin
   // Validate the serial number
-  try
-    SerialNum := StrToInt(edtSerial.Text);
-  except
+  if not TryStrToInt(edtSerial.Text, SerialNum) then
+  begin
     MessageDlg('Invalid Serial Number.  Please check your entry and try again.', mtError, [mbOK], 0);
     edtSerial.SetFocus;
     edtSerial.SelectAll;