Das mag noch für kleine Prjekte zutreffen aber spätestens wenn du es mal mit umfangreicheren Code zu tun hast wirst du es vermeiden alles Global zu deklarieren!
Er wird sicher das "zahl :=" im Case-Block entfernt haben da ShowMessage keinen Rückgabewert hat und es so nicht funktionieren konnte. Ausserdem hat er ein end; vergessen gehabt.