Compile problem

[mkinzler]

Oder

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
zahl1, zahl2, ergebnis: Double;
begin
zahl1 := StrToInt(Edit1.Text);
zahl2 := StrToInt(Edit2.text);
ergebnis := zahl1 DIV zahl2
Lable4.Caption := FloatToStr(ergebnis)

end;