Fixed IF compiler directives

Author: pyscripter

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -66,7 +66,7 @@
 
 {$IF defined(LINUX) or (defined(BSD) and not defined(DARWIN)) or defined(SOLARIS) or defined(HAIKU)}
   {$define _so_files}
-{$ENDIF}
+{$IFEND}
 
 interface
 
@@ -3573,7 +3573,7 @@ function  TPythonInterface.GetUnicodeTypeSuffix : string;
         'UCS2'
       {$ELSE}
         'UCS4'
-      {$ENDIF}
+      {$IFEND}
   else
     Result := '';
 end;

PythonForDelphi/Components/Sources/Core/UnitTests/WrapDelphiTest.pas

@@ -234,8 +234,6 @@ procedure TTestWrapDelphi.TestObjectField;
 end;
 
 procedure TTestWrapDelphi.TestRecord;
-Var
-  VRec: TValue;
 begin
   Rtti_rec.StringField := 'abcd';
   Assert.IsTrue(rtti_rec.StringField = 'abcd');