TPoint3D

type TPoint3D = packed record

public

type

  TSingle3Array = array [0..2] of single;

public

  constructor Create();

  procedure Offset();

  function ToString();

  case Integer of

    0: (

        data: TSingle3Array;

      );

    1: (

        x: single;

        y: single;

        z: single;

      );

end;