OnGuard: Replace in all demo projects .lrs resource by .res resource. Less hints and warnings.

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

components/onguard/examples/exsrnm1/exsrnmu1.pas

@@ -22,11 +22,8 @@ unit Exsrnmu1;
 interface
 
 uses
-  SysUtils,Classes,Controls,
-  Forms, Dialogs, OnGuard, StdCtrls, Buttons,LResources,
-
-  OgUtil,
-  IniFiles;
+  SysUtils, Classes, Controls, Forms, Dialogs, OnGuard, StdCtrls, Buttons, IniFiles,
+  OgUtil;
 
 const
   CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,
@@ -62,7 +59,7 @@ var
 
 implementation
 
-
+{$R *.lfm}
 
 uses
   Exsrnmu2;
@@ -76,11 +73,9 @@ end;
 
 {=======================================================================}
 
-
 procedure TForm1.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode);
 var
   S1  : string;
-  L   : integer;
 begin
   {force the INI file to be in the same directory as the application}
   TheDir := ExtractFilePath(ParamStr(0));
@@ -134,6 +129,7 @@ begin
     end;
 
     {Check that Release Code was entered correctly}
+    TC := Default(TCode);
     HexToBuffer(SNEntryDlg.CodeText.Text, TC, SizeOf(TCode));
     if not (IsSerialNumberCodeValid(CKey, TC)) then begin
       S := 'Release code not entered correctly';
@@ -167,11 +163,8 @@ end;
 procedure TForm1.OgSerialNumberCode1Checked(Sender: TObject;
                                             Status: TCodeStatus);
 var
-  S,
-  C1,
-  C2  : string;
-  TC  : TCode;
-  LI  : longint;
+  S: String;
+  LI: longint;
 begin
   case Status of
     ogValidCode   : begin
@@ -207,8 +200,5 @@ begin
   Application.Terminate;
 end;
 
-initialization
-{$i exsrnmu1.lrs}
-
 end.