0005898: Bug in compile errors report

git-svn-id: http://code.remobjects.com/svn/pascalscript@76 5c9d2617-0215-0410-a2ee-e80e04d1c6d8

Source/uPSComponent.pas

@@ -1071,10 +1071,14 @@ begin
         Result := FComp.Compile(lData);
       end;
       FComp.AllowUnit := lPrevAllowUnit;
-    end else
+    end else begin
+      FComp.MakeError(FComp.UnitName, ecUnknownIdentifier, lName);
       Result := false;
-  end else
+    end;
+  end else begin
+    FComp.MakeError(FComp.UnitName, ecUnknownIdentifier, lName);
     result := false;
+  end;
 end;
 
 procedure TPSScript.DoOnCompImport;