Source position: AdvLed.pas line 32
type TLedStateEvent = procedure(
Sender: TObject;
AState: TLedState
) of object;