1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

  TComponent1 = class(TComponent)
  strict private
    var
      FB: Boolean;
      FA: Integer;
    procedure SetA(const Value: Integer);
    procedure SetB(const Value: Boolean);
  published
    property A: Integer read FA write SetA;
    property B: Boolean read FB write SetB;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('none', [TComponent1]);
end;

{ TComponent1 }

procedure TComponent1.SetA(const Value: Integer);
begin
  if (Value > 0) and not B and not (csLoading in ComponentState) then
    raise Exception.Create('Fehlermeldung');
  FA := Value;
end;

procedure TComponent1.SetB(const Value: Boolean);
begin
  FB := Value;
end;