* Fix bug ID #0037516, only add extra uses to interface

git-svn-id: trunk@46311 -

packages/fcl-passrc/src/paswrite.pp

@@ -564,6 +564,7 @@ begin
   C:=0;
   if ASection.UsesList.Count>0 then
     begin
+    if not (aSection is TImplementationSection) then
       For I:=1 to WordCount(ExtraUnits,UnitSeps) do
         begin
         u:=Trim(ExtractWord(1,ExtraUnits,UnitSeps));