Tatsächliche und formale Variablen? (Funktion)

[Rynardald]

Hallo,
habe ein ähnliches Problem.
Immer wenn ich versuche eine Bibliothek zu kompilieren bekomme ich den Fehler:

Code:

E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

Der Quellcode dazu sieht so aus:

Delphi-Quellcode:

  
  procedure TFilterGraph.HandleEvents;
  var
    hr: HRESULT;
    Event: Integer;
    {$IF CompilerVersion >= 24.0}
    Param1, Param2: LongInt;//NativeInt;
    {$ELSE}
    Param1, Param2: Integer;
    {$IFEND}begin
    if assigned(FMediaEventEx) then
    begin
      hr := FMediaEventEx.GetEvent(Event, Param1, Param2, 0); // an dieser Stelle 
      while (hr = S_OK) do
      begin
        DoEvent(Event, Param1, Param2);
        FMediaEventEx.FreeEventParams(Event, Param1, Param2);
        hr := FMediaEventEx.GetEvent(Event, Param1, Param2, 0); // und hier auch nochmal
      end;
    end;
  end;

Die entsprechende Funktion sieht aber so aus:

Delphi-Quellcode:

function GetEvent(out lEventCode: Longint; out lParam1, lParam2: Longint;
        msTimeout: DWORD): HResult; stdcall;

Kann mir da einer von euch weiterhelfen?