TpFIBRestoreService.Handle как корректно его использовать в WinSvc.ControlService

[fedorov2012]

Добрый день.
Для восстановления БД (Firebird 2.5) из архива использую TpFIBRestoreService, но в процессе восстановления иногда мне требуется приостанавливать сервис, для этого я использую TControlService. В TpFibRestoreService есть свойство Handle, но оно типа PVoid, а ControlService требуется передавать Handle сервиса типа THandle.
Попробовал так:

ControlService(THandle(RestoreService.Handle), SERVICE_CONTROL_PAUSE, Status)

но возникает ошибка.
Подскажите, пожалуйста, как быть?