if (rain = true) // Booleanische Abfrage
    then        // wenn es zutriff, dann tu ->
        begin // leitet Anweisungblock ein.
            ShowMessage ('Wiper is on');   // Anweisungen.
            wiper := 1;           // Anweisungen.
        end; // beendet Anweisungblock.
    else    // ansonsten tu ->
        begin           //leitet Anweisungsblock ein.
            ShowMessage ('Wiper is off')    // Anweisungen.
            wiper := 0;             // Anweisungen.
        end;  //beendet Anweisungblock.