InterlockedCompareExchange in FreePascal

[Alter Mann]

Hallo,

ich habe ein kleines (verständniss) Problem

Code:

...
Target, NewValue : Pointer;
...
if InterlickedCompareExchange(Target, NewValue, nil) <> nil then //<< Hier
...

Hier bekomme ich immer den Hinweis, dass das 3. Arg. ein Pointer ist, aber ein Longint erwartet wird.
Gehe ich mit der Maus über die betreffende Zeile verweist er im Hint auf die
systemh.inc Zeile 1014,10 und dort steht die folgende Deklaration:

Code:

function InterlockedCompareExchange(var Target : Pointer; NewValue : Pointer; Comperand: Pointer): Pointer;

Was mache ich also falsch bzw. was muss ich dem Compiler mitteilen damit
der Code durchläuft?

Danke