#pas
var
  MM: TMemoryManager;
  Proc: procedure (const MemMgr: TMemoryManager);
begin
  .....
  Proc = GetProcAddress(FID,'SetShareMemoryManager');
  GetMemoryManager(MM);
  Proc(MM);
  .....

#pas

var
  OldMM: TMemoryManager

.....

procedure SetShareMemoryManager(const MemMgr: TMemoryManager);
begin
  GetMemoryManager(OldMM); // Сохранить менеджер DLL
  SetMemoryManager(MemMgr); // Задать менеджер, переданный из exe-шника
end;

.....

exports
  ...
  SetShareMemoryManager;

.....

finalization
  SetMemoryManager(OldMM); // Вернуть старый менеджер
  // Возможно лучше делать не здесь, а в DLLProc при выгрузке DLL
end.