You need to use either the Round function or the Trunc function to make the conversion.

[pascal]
MyRect.x := Round(x); // where x is your real variable
[/pascal]

or

[pascal]
MyRect.x := Trunc(x); // where x is your real variable
[/pascal]