[Ahton]

Неподарок спасибо за оптимизацию кода в обработчике таймера3
C закрытием разобрался:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var ssStatus: SERVICE_STATUS;
    schSCManager: SC_HANDLE;
    schService: SC_HANDLE;
begin
  schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
  if schSCManager=0 then RaiseLastOSError;
  schService:=OpenService(schSCManager,'rserver3'#0,SERVICE_ALL_ACCESS);
  if schService=0 then RaiseLastOSError;
  if(QueryServiceStatus(schService,ssStatus)) then begin
    case ssStatus.dwCurrentState of
      SERVICE_STOPPED: Label2.Caption := 'Остановлена';
      SERVICE_RUNNING: Label2.Caption := 'Запущена';
   end;
   CloseServiceHandle(schService);
    CloseServiceHandle(schSCManager);
  end;
end;

Спасибо за помощь