Case

[DSFreak]

Versuche mal, die Variable zahl innerhalb der Prozedur zu deklarieren.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  zahl : Integer;
begin
  [...]

Ansonsten würde uns die Fehlermeldung o.ä. sicher weiterhelfen.