Dividieren but ohne Zahlen nach dam Komma und ohne Runden ?!

[Die Muhkuh]

Delphi-Quellcode:

var
  Zahl1, Zahl2, Ergebnis: Single;
begin
  Zahl1 := 15;
  Zahl2 := 6;
  Ergebnis := Zahl1 / Zahl2;
  ShowMessage(FloatToStr(Ergebnis));
end;