...
type 
  TSomeEditor = class(TForm)
    ebName: TEdit;
    ebVacation: TEdit;
  ....
  private
    function GetStringValue(Index: Integer): string;
    procedure SetStringValue(Index: Integer; const Value: string);
  public
    property Name: string index 1 read GetStringValue write SetStringValue;
    property Vacarion: string index 2 read GetStringValue write SetStringValue;
  ....


function TSomeEditor.GetStringValue(Index: Integer): string;
begin
  case Index of
    1: Result := ebName.Text;
    2: Result := ebVacation.Text;
  else
     raise Exception.CreateFmt('Internal error: GetStringValue() index incorrect: %d', [Index]);
  end;
end

procedure TSomeEditor.SetStringValue(Index: Integer; const Value: string);
begin
  case Index of
    1: ebName.Text := Result;
    2: ebVacation.Text := Result;
  else 
     raise Exception.CreateFmt('Internal error: SetStringValue() index incorrect: %d', [Index]);
  end;
end;