* don't lowercase resource file name in delphi mode

git-svn-id: trunk@1180 -

compiler/scandir.pas

@@ -844,7 +844,10 @@ implementation
           if Assigned(Current_Module) then
             begin
               delete(S,1,1);
-              insert(lower(current_module.modulename^),S,1);
+              if m_delphi in aktmodeswitches then
+                insert(current_module.modulename^,S,1)
+              else
+                insert(lower(current_module.modulename^),S,1);
             end;
         s:=AddExtension(FixFileName(s),target_info.resext);
         if target_info.res<>res_none then