Dzielenie przez 0

Hej, potrzebuję pomocy z kodem. Dopiero zaczynam przygodę z programowaniem, więc z góry przepraszam za nieogarnianie. Piszę prosty kalkulator i mam problem z błędem dzielenia przez 0. Wydaje mi sie, że wszystko jest dobrze jednak nie działa i nie wyswietla informacji. W załączniku cały program.
Oto fragment:

begin
Wynik := 0;
Arg2:= StrToFloat(Wyswietlacz.Text);
case Znak of
'+' : Wynik := Arg1 + Arg2;
'-' : Wynik := Arg1 - Arg2;
'*' : Wynik := Arg1 * Arg2;
'/' :
if Arg2 <> 0 then
Wynik := Arg1/Arg2;
else
showmessage ('nie dziel przez');
end;
Wyswietlacz.Text:= FloatToStr(Wynik);
end;

Projekt 4 Liczydlo.rar

Na czym polega ten problem, co to znaczy "nie działa"?

Tycjano napisał(a):

Wydaje mi sie, że wszystko jest dobrze jednak nie działa ...

Gdzie określasz wartość Arg1?

_13th_Dragon napisał(a):

Tycjano napisał(a):

Wydaje mi sie, że wszystko jest dobrze jednak nie działa ...

Gdzie określasz wartość Arg1?

Na samej górze, gdzie jest zmienna Form1.
Ale już to ogarnąłem, wystarczyło po prostu dodać begin end przy poszczególnych operatorach.

Tycjano napisał(a):

Na samej górze, gdzie jest zmienna Form1.
Ale już to ogarnąłem, wystarczyło po prostu dodać begin end przy poszczególnych operatorach.

Na 100% dodanie begin end nic nie wniesie do tego kodu.