Also ich würde den Code so umschreiben:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender:TObject);
begin
// self ist in diesem Kontext das Formular
// sollte self = NIL sein, dann ist alles zu spät
// deshalb wird dies mit der Assert-Anweisung geprüft
Assert(Assigned(self));
// wir sind etwas paranoid und gehen lieber auf Nummer Sicher
Assert(Assigned(ComboDis));
Assert(Assigned(CalloutPower));
// mit der Klammersetzung wird der Leser mit der Nase darauf gestossen
// dass zuerst eine Auswertung eines boolschen Ausdrucks stattfindet
// und dann das Ergebnis dem Property Visible zugewiesen wird
CalloutPower.Visible := (ComboDis.Text = 'Variante 1');
PS: wann immer eine
Zugriffsverletzung auftritt dann kann
Assert() helfen.
Man braucht nur an die richtigen Stellen im Code einige Asserts platzieren und schon hat man den Fehler eingefangen.
Zugriffsverletzungen sind die Krankheit und Asserts das Medikament dagegen.