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;