przecinek

powiedzmy ze w edicie jest wpisana wartos 35.9292374763 - co zrobic by po kliknieciu np buttona w labelu wyswietlala sie tylko 35 ?? chodzi mi o skreslenie wshystkich liczb po przecinku

Label1.Caption:=IntToStr(Trunc(StrToFloat(Edit1.Text)));