Taschenrechner mit Zwischenergebnis programmieren

[Wuaegner]

Servus ! Hab mir vorgenommen einen TR zu programmieren, als Vorbild den Windwos TR. Habe einen Stack erstellet auf den ich mit Pop Push usw zugreifen kann. Einen Num Stack für die Zahlen und einen Operatorstack. Habe in einer Hirarchie festgelegt welcher Operator am stärksten bindet , am zweistärksten usw. 0 bekommen die stärksten mit auf den Stack , 1 die zweitstärksten usw. So wollte ich dann vergleichen ob das Object von der Operatorzahl auf dem Stack höhe rist als das neue usw, um Punkt- vor- Strich-Rechnung zu realisieren. Habe aber ein Problem: wenn man 1+ eingibt und dann wieder eine Zahl, dann wird das Editfeld gelöscht und die neue Zahl steht da, alles richtig, solange bis er das erste Zwischenregebnis anzeigt, dann muss man jedoch zweimal auf den Plus button klicken damit er mit dem Zwischenregebnis weiterrechnet. Bei einem Klick bleibt es stehen und es passiert nichts. Hier mal der Code:

Code:

procedure TForm1.EAusgabeKeyPress(Sender: TObject; var Key: Char);
var
  OpPosition: integer;
  OpAltPosition: integer;
  Zahl,ZahlAlt: extended;
  
  OpAlt : String;
begin
   inc(anz);

   if (Op <> '') and (anz = 1) then
      EAusgabe.Text := '';

   if Key in [',','0','1','2','3','4','5','6','7','8','9'] then exit;

   if OpPos(Key,OpPosition)= true then        {Wenn key ein Operator ist}
     begin
     Label1.Caption:= Key;
     Zahl:= StrToFloat(EAusgabe.Text);

       if OpStack.IsEmpty= false then
             begin
               OpStack.PopObject(TObject(OpAltPosition));
               if OpAltPosition <= OpPosition then
                   begin
                   ZahlAlt:= StrToFloat(NumStack.Pop);
                   OpAlt:= OpStack.Pop;
                   case OpAlt[1] of
                    '+':
                      begin
                       ZahlAlt:= ZahlAlt + Zahl;
                       EAusgabe.Text:= FloatToStr(ZahlAlt);
                       NumStack.Push(FloatToStr(ZahlAlt));

                       Anz:= 0;
                      end;
                    '-':
                      begin
                      ZahlAlt:= ZahlAlt - Zahl;
                      EAusgabe.Text:= FloatToStr(ZahlAlt);
                      NumStack.Push(FloatToStr(ZahlAlt));

                      Anz:= 0;
                      end;

                   end;

                  end;
               end
                else
                  begin
                   Op := Key;
                   Anz:= 0;
                   OpStack.Push(key);
                   OpStack.PushObject(key,TObject(OpPosition));
                   NumStack.Push(FloatToStr(Zahl));
                   exit;

                  end;

    end;

  Key:= #0;
end;

Vielleicht sieht jemand wo mein Fehler liegt.
Gruß Flo