Taschenrechner?

[hanselmansel]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  zahl1, zahl2, ergebnis: Extended;  //<-- Extended-Datentyp
begin
  zahl1 := StrToFloat(Edit1.Text);
  zahl2 := StrToFloat(Edit2.Text);
  ergebnis := zahl1 * zahl2;
  Label4.Caption := FloatToStr(ergebnis);

end;

end.