1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button4Click(Sender: TObject);
begin
if label2.caption = '+' then
x := strtofloat(label1.caption);
y := strtofloat(label3.caption);
Ergebnis := x + y;
showmessage('Ergebnis: ' + floattostr(Ergebnis))
else               //Hier meine Fehlermeldung: "[Fehler] Rechner4.pas(51): 'END' erwartet, aber 'ELSE' gefunden".
label2.caption := 'Y';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

if Label2.Caption = '+' then
begin
  x := StrToFloat(Label1.Caption);
  y := StrToFloat(Label3.Caption);
  Ergebnis := x + y;
  ShowMessage('Ergebnis: ' + FloatToStr(Ergebnis));
end
else
  Label2.Caption := 'Y';					

1:
2:
3:
4:

if Label2.Caption = 'Y' then
  Label2.Caption := 'X'
else
  Label2.Caption := 'Y';