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

Procedure TForm1.Button1Click(Sender: TObject)

Var txt: String; A,B,C: Double;

begin

A:= StrToFloat (Panel1.Caption);

B:= StrToFloat (Panel3.Caption);

txt:= '+';



IF Panel2.Caption:= txt; then

C:= A+B;

Panel4.Caption:= FloatToStr(C);					

1:

if Panel2.Caption = txt then					

1:
2:
3:

...
IF Panel2.Caption:= txt; then
...					

1:
2:
3:
4:
5:
6:

A := B;
If Panel2.Caption = txt Then C := X;
While KeineAhnung Do Lerne;
While VollImLeben
  Do
  GotoParties;