Exception message loosing

Mamy funkcję która podmienia Message w Exception i zwraca go (bez raise)

 function MesException(E : Exception) : Exception; 

oraz globlany handler

procedure HdeTDebuger.HdeGlobException(Sender: TObject; E : Exception); 

no to jazda

...
  except
    on E:Exception do
    begin
      E := MesException(E);
      {$IFDEF DEBUG}
      WriteLn(E.Message); // tutaj jeszcze Message nie jest null
      {$ENDIF}
      raise E; -- tutal wpada w HdeGlobException
    end;
  end;
 

Niestety po wejściu w HdeGlobException E.Message = nil.
Dlaczegóż tak się dzieje ? Coś robię źle ?