Funktioniertbei jemanden MustangPeak für xe7

[ATS3788]

https://code.google.com/p/mustangpea...s/wiki/Welcome

Hallo
Ich versuche grade MustangPeak
zu installieren. Soweit so gut
nur die Design Unit von
"mustangpeakvirtualshelltools"
funktionieren nicht richtig.

Delphi-Quellcode:

function TVSTShellToolbar.LoadFromDataObject(DataObject: IDataObject): Boolean;
var
  StgMedium: TStgMedium;
  Stream: IStream;
  BytesRead: LongInt;
  NewPos: uint64;   // Hier muss LongInt rein 
  LocalPIDLSize: integer;
  Malloc: IMalloc;
begin
  Result := False;
  if Succeeded(DataObject.QueryGetData(GetFormatEtc)) then
    if Succeeded(DataObject.GetData(GetFormatEtc, StgMedium)) then
    begin
      Stream := IStream( StgMedium.stm);
      Stream.Seek(0, STREAM_SEEK_SET, NewPos);
      Stream.read(@FProcess, SizeOf(Process), @BytesRead);
      Stream.read(@LocalPIDLSize, SizeOf(LocalPIDLSize), @BytesRead);
      SHGetMalloc(Malloc);
      PIDL := Malloc.Alloc(LocalPIDLSize);
      Stream.read(@PIDL^, LocalPIDLSize, @BytesRead);
      Result := True;
    end
end;

 Stream.Seek(0, STREAM_SEEK_SET, NewPos);

Zitat:

VirtualShellToolBar.pas(4380): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

wenn ich uint64 mit LongInt ersetze wird alles richtig Kompaliert nur dann habe ich
Laufzeitfehler.
Hat jemand eine Idee