Delphi 5 legacy application - now needs to call C++ DLL with mangled names

We have an old Delphi 5 legacy application that calls some 3rd party DLLs written in Microsoft C. We don't have the source to the DLLs.

The calls are declared like this in the Pascal code:

function EnableSomething: ResultCode; cdecl; external something.dll';

and everything compiles and works fine.

We now have some updated DLLs to work with newer hardware (the old stuff is now obsolete). The new version of the DLL has the same name, but a TDump of the DLL shows that all functions now have leading underbars (_EnableSomething) and have mangled C++ names (_EnableSomething@0).  I can easily change the external references and function calls in the Delphi 5 source to include the leading underbars, but (of course) calls to the functions fail at runtime due to the mangled names.

I found a fix, using the index ordinal. So the external reference now reads:

function EnableSomething: ResultCode; cdecl; external something.dll' index 25;

So I can go through every call and affix the proper index (and hope I don't typo any) and get this to work.,

My question is:  Is there a better, easier or more automated way to do this?

I don't want to port this to newer Delphi and want to make as few changes to the Delphi source as possible - it is a tried and true app and just needs to call the new DLL.

In Borland C Builder programs that use these same DLLs I was able to use IMPLIB to work around this, but could come up with no simple and "automated" way to make this work in Delphi. Maybe nothing exists?  I thought of writing a C Builder wrapper to call from Delphi that would translate the names, but it would be easier and faster just to use the index ordinal.

If looks like the functions are exported in alphabetical order, if they add a new _aardvark() function call I would have to change EVERY index to use the newer DLLs :-( .

Thanks!