Was willst du mit dem "repeat ... until z <= 1" machen? Ein Taschenrechner der Plus und Minus rechnet braucht das nicht.
Wenn du in Delphi Codeblöcke haben möchtest, dann musst du sie mit "begin ... end" einschließen.
Zum Beispiel:
Code:if n = 10 then begin Zahl := StrToInt(Edit1.Text); Zahl2 := StrToInt(Edit2.Text); ergebnis:=Zahl+Zahl2; Zahl3 :=IntToStr(ergebnis); ShowMessage(Zahl3); end;