It's alway's a good idea to use Const.... like this:

[pascal]
function MyPoint(Const X,Y: Integer): TMyPoint;
begin
Result.X := X;
Result.Y := Y;
end;
[/pascal]

This will speed things up, especially mathy routines with lots of params.

Just to let you know.