Wie, Du weißt nicht, wie das geht? Du tust das doch bereits, nur eben viel zu spät. Mal anders gefragt: was ist an dieser Logik falsch?
Delphi-Quellcode:
Wasser.GießInEimer;
if Eimer.ÖffnungUnten then
ShowMessage('Du musst den Eimer umdrehen');
Macht das so nicht mehr Sinn?
Delphi-Quellcode:
if Eimer.ÖffnungUnten then
ShowMessage('Du musst den Eimer umdrehen')
else
Wasser.GießInEimer;