Sender abfragen klappt nicht richtig

[Bjoerk]

Ich fass es nicht, da fehlten 2 begin's und end's.

Delphi-Quellcode:

      if Sender is TPropCheckBox then
      begin
        if TPropCheckBox(Sender).CheckBox.Checked then
          Result := 2
      end
      else
        if Sender is TPropEdit then
        begin
          if TPropEdit(Sender).CheckBox.Checked then
            Result := 3
        end
        else
          if Sender is TPropComboBox then
            if TPropComboBox(Sender).CheckBox.Checked then
              Result := 4;