type TSPoint = class
    function Create();
    begin
        self.X := 0;
        self.Y := 0;
    end
    X: real;
    Y: real;
end;