Assa's Service Unit - FPC mag es nicht

[gbl]

Ic passe gerade Assarbat's Unit SERVICE an, damit FPC / Lazarus diese übersetzen kann.

Bei folgendem Code hab' ich keinen Plan wieso der Compiler streikt.

Delphi-Quellcode:

PROCEDURE startasservice;
var dispatchtable:ARRAY[0..1] of tservicetableentry;
BEGIN
  dispatchtable[0].lpservicename:=pchar(servicename);
  dispatchtable[0].lpserviceproc:=@serviceproc;
  dispatchtable[1].lpservicename:=NIL;
  dispatchtable[1].lpserviceproc:=NIL;
  StartServiceCtrlDispatcher(dispatchtable[0]);     // << Hier entsteht der Fehler
END;

service.pas(168,46) Error: Incompatible type for arg no. 1: Got "_SERVICE_TABLE_ENTRYA", expected "LPSERVICE_TABLE_ENTRYA"
g3svc.lpr(3709,10) Hint: Found declaration: StartServiceCtrlDispatcher(LPSERVICE_TABLE_ENTRYA) :LongBool;StdCall
service.pas(212,66) Error: Identifier not found "_DELETE"

Kann mir da jemand weiterhelfen?