type TPoint = record X, Y: Single end; function f(x, y: Double):TPoint; begin end;