Property zusammensetzen

[choose]

Gar nicht übel, Robert, vielleicht mit einer kleinen Anpassung:

Delphi-Quellcode:

type
  TSomeEnum = (slFirst, slSecond, slThird, slFourth);

  TMYClass = class
  private
    FServers: array[TSomeEnum] of TServer;
    function GetServers(AIndex: TSomeEnum): TServer;
  public
    property Server[AIndex : TSomeEnum] : TServer read GetServers;
    property Server1: TServer index slFirst read GetServers;
    property Server2: TServer index slSecond read GetServers;
    property Server3: TServer index slThird read GetServers;
    property Server4: TServer index slFourth read GetServers;
  end;

function TMYClass.GetServers(AIndex: TSomeEnum): TServer;
begin
  Result := FServers[AIndex];
end;