Es ist sauberer, wie folgt zu schreiben, da man Booleanwerte generell nicht mit True/False vergleichen sollte:
Delphi-Quellcode:
procedure TAboutBox.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
ShowMessage('Ein');
end
else if not CheckBox1.Checked then
begin
ShowMessage('Aus');
end;
end;
...
...