Taschenrechner : ' ' ist kein Gleitkommawert

[Ric]

Es hat alles prima geklappt, erscheint auch keine Fehlermeldung mehr
So sieht das jetzt aus

Delphi-Quellcode:

procedure TForm1.btn_malClick(Sender: TObject);
begin
  if   edit1.Text = '' then exit;
  opperator := '*';
  if  zwischenergebnis = 0  then
  begin
    try
      zwischenergebnis := strtofloat(edit1.text);
    except
      zwischenergebnis := 0;
    end;
    edit1.Text := '';
  end
  else
  begin
      edit1.Text  := FloatToStr(zwischenergebnis * strtofloat(edit1.text));
      zwischenergebnis := StrToFloat(edit1.text);
      oppbool := true;
  end;
end;