Punkt vor Strich

[Durg]

Eigentlich ist der Taschenrechner schon bewertet worden, aber ich wollte noch Punkt vor Strich einbauen, nur weiß ich nicht wie ich das lösen könnte momentan rechnet der einfach 2 zahlen aus oder zieht die Wurzel oder so.
Aber beachtet dabei halt keine Regeln.
Deswegen sieht das ganze Zur Zeit so aus

Delphi-Quellcode:

procedure TTaschenrechner.BtGleichClick(Sender: TObject);
begin
  case OP of
    opPlus:
    begin
      Anzeige.Text := FloatToStr(Zahl + StrToFloat(Anzeige.Text));
    end;
    opMinus:
    begin
      Anzeige.Text := FloatToStr(Zahl - StrToFloat(Anzeige.Text));
    end;
    opDiv:
    begin
      Anzeige.Text := FloatToStr(Zahl / StrToFloat(Anzeige.Text));
    end;
   ....
    opCos:
    begin
      Zahl := cos(StrToFloat(Anzeige.Text));
      Anzeige.Text := FloatToStr(Zahl);
    end;
    opTan:
    begin
      Zahl := Tan(StrToFloat(Anzeige.Text));
      Anzeige.Text := FloatToStr(Zahl);
    end;
  end;
end;

Daher wäre ich für Vorschläge, hilfe jeglicher art dankbar.