Конвертация real > integer

[Viteef]

Ерундовина такая, не знаю как сконвертировать real в integer!
Помогите кто знает!

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
var
r: real;
k: integer;
begin
r := 3.58;
k := Trunc(r);
k := Round(r); //выбирай любой способ. Первый отсекает дробную часть, в результате k = 3, второй округляет и k = 4.
end;

[Viteef]

Thanck!!!!