Mod Anweisung funktioniert nicht

[Cr3at0r]

Guten Mittag,

folgender Quellcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Rest: real;
    Zaehler, Teiler: Integer;
begin
  Zahl := StrToFloat(Edit1.Text);
  Zaehler := 0;
  Rest := 0;
  Teiler := 2;
  Repeat
    Rest := Zahl Mod Teiler; //<--[Fehler] Teiler.pas(37): E2015 Operator ist auf diesen Operandentyp nicht anwendbar
    Zahl := Zahl / 2;
  Until
    Rest <>0;

  Label1.Caption := FloatToStr(Zaehler);
end;

Wo liegt der Fehler? Finde ihn nicht.