iwbs4checkbox

[sskuropack]

I have a problem with iwbs4checkbox not working properly.  

If I compile and run as a standalone program it works as expected.

If I compile and run as a service, the checkbox works visually and an OnAsyncClick Event fires properly but the "checked" property it never changes.

Currently using Windows 11, Delphi 12.3, IW 16.1.4 (Also tried 15.5.5)

procedure TIWNaturesOwnSeed.ApprovedCheckBoxAsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
If ApprovedCheckBox.Checked
  then fApproved:=True
  else fApproved:=False;  ***** Always false if compiled as a service****
end;