procedure SetComponentState(const AState: TComponentState);