Leider geht delay nicht in der
DLL 
Delphi-Quellcode:
procedure Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
{allowing access to other controls, etc.}
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
Fehler:
[Fehler] CamInitialization.dpr(56): Undefinierter Bezeichner: 'GetTickCount'
[Fehler] CamInitialization.dpr(56): Undefinierter Bezeichner: 'GetTickCount'
[Fehler] CamInitialization.dpr(58): Operator oder Semikolon fehlt