Boolean ändert nicht seinen Wert (?)

[Prototypjack]

Hallo,
Auch auf die Gefahr hin, dass mein Beitrag komplett überflüssig ist, versuch's mal so(Damit löst sich das Problem der Initialisierung):

Delphi-Quellcode:

procedure SomeButtonClick(Sender: TObject);
begin
  FadeOutOnClose := not FadeOutOnClose;  // = FOOC
  if FadeOutOnClose then
  begin
     xiFadeOutOnClose.Caption := 'Deactivate fade out on close';
  end
  else
  begin
     xiFadeOutOnClose.Caption := 'Activate fade out on close';
  end;
end;

Delphi-Quellcode:

procedure CustomFormCreate(Sender: TObject);
begin
  FadeOutOnClose := False;
  SomeButtonClick(Self);
  // Hier wird der negative Wert des FadeOutOnClose Booleans initialisiert.
  // Das heisst, setzt du hier FadeOutOnClose auf False steht auf dem Button 'Deactivate fade out on close'
  // Der Button sollte jetzt vorhersehbar reagieren
end;

Gruß,
Max