1:
2:
3:
4:

TVektor = class(TObject)
public
  Koordinaten: Array[0..2] of Integer;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var 
  Vektor: TVektor;

procedure DoSomething;
begin
  Vektor.Koordinaten[0] := 18; //gleichbedeutend mit
  Vektor[0] := 18;
end:					

1:
2:

type
     TVector = Array[0..2] of Integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TCoordRange = 0..2;
  TCoords = array[TCoordRange] of Integer;

  TVektor = class
  private
   FCoords: TCoords;
  public
    property Coords[Index: TCoordRange]: Integer read GetCoord write SetCoord; default;
  end;