shTrees wandeln zu Delphi 2010 / Fehler

[HJay]

Ich versuche gerade, ein Delphi-6-Projekt nach Delphi-2010 zu wandeln. Ich verwende die fremde Unit "ShTrees" und leider gibt es ein Problem mit dem Char-Format, das ich nicht lösen kann.

Delphi-Quellcode:

CmdID := Integer(TrackPopupMenu(Popup,
                     TPM_LEFTALIGN or TPM_RETURNCMD or TPM_RIGHTBUTTON,
                     Where.X, Where.Y, 0, Handle, nil));
          if CmdID <> 0 then
          begin
            with CommandInfo do
            begin
              cbSize := SizeOf(CommandInfo);
              fMask := 0;
              hwnd := 0;
              lpVerb := MakeIntResource(CmdID - 1); // >>>> ERROR
              lpParameters := nil;
              lpDirectory := nil;
              nShow := SW_SHOWNORMAL;
              dwHotKey := 0;
              hIcon := 0;
            end;
            Result := Succeeded(ContextMenu.InvokeCommand(CommandInfo));
          end;

In D6 ist Windows.MakeIntResource: PChar während es in Delphi-2010 PWideChar ist.

Wie kann man den Konflikt lösen?