Comparing functions

[Razor]

Basicly this can't compile...

Delphi-Quellcode:

var
pdata:Cardinal;
begin

omcdrv.GetPCIRDWord(0,24,$03,$E4,pdata); // Here i get Internal error L1333
omcdrv.SetPCIRDWord(0,24,$03,$E4, pdata and not (1 shl 2)); 

C0:= Format('%d °C',[(pdata shr 16 and $FF)-49]); 
Label0.Caption := C0; 



//procedure GetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; var pdata: Cardinal);