Update align keyword support implementation

Author: RomanYankovsky

Source/SimpleParser/SimpleParser.Lexer.pas

@@ -758,7 +758,7 @@ function TmwBasePasLex.Func43: TptTokenKind;
   Result := ptIdentifier;
   if KeyComp('Int64') then FExID := ptInt64
   else if KeyComp('local') then FExID := ptLocal
-  else if KeyComp('align') then Result := ptAlign;
+  else if KeyComp('align') then FExID := ptAlign;
 end;
 
 function TmwBasePasLex.Func44: TptTokenKind;

Source/SimpleParser/SimpleParser.pas

@@ -4316,9 +4316,9 @@ procedure TmwSimplePasPar.SimpleType;
 
 procedure TmwSimplePasPar.RecordAlign;
 begin
-  if TokenID = ptAlign then
+  if ExID = ptAlign then
   begin
-    Expected(ptAlign);
+    NextToken;
     RecordAlignValue;
   end;
 end;

Test/Snippets/alignedrecords.pas

@@ -1,10 +1,11 @@
-unit managedrecords;
+unit alignedrecords;
 
 interface
 
 type
   TMyRecord = record
     Value: Integer;
+    Align: string;
     class operator Initialize (out Dest: TMyRecord);
     class operator Finalize(var Dest: TMyRecord);
   end align 8;
@@ -22,4 +23,4 @@ implementation
   Log('destroyed' + IntToHex (Integer(Pointer(@Dest))));
 end;
 
-end.
+end.