class procedure MaxMin(var vector: TFloatArray; out max: float; out min: float);

FloatVector