Problem mit if-Befehl

[sx2008]

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.