Delphiproblem - Taschenrechner brauche hilfe !

[biby90]

habe es jetzt so gelöst

Delphi-Quellcode:

Procedure Rechenarten;   //eigene Prozedur


procedure TForm1.Rechenarten;
begin
  if Rechenart = 0 then
    Speicher := StrToFloat(txt_rechnung.text);
  if Rechenart = 1 then
    Speicher := Speicher + StrToFloat(txt_rechnung.text);
  if Rechenart = 2 then
    Speicher := Speicher - StrToFloat(txt_rechnung.text);
  if Rechenart = 3 then
    Speicher := Speicher * StrToFloat(txt_rechnung.text);
  if Rechenart = 4 then
    Speicher := Speicher / StrToFloat(txt_rechnung.text);
end;

procedure TForm1.cmd_gleichClick(Sender: TObject);
begin
  Rechenarten;
  txt_rechnung.text := FloatToStr(Speicher);
  Speicher := 0;
  Rechenart := 0;

aber er streikt immer noch