TOPIC:

  property Code[nIndex: Word]:TIRData  Read GetCode  Write SetCode; default;

  MyClass[2] := <Variable of TIRData>;

  MyClass.Code[2] := <Variable of TIRData>;

TTestClass = class
private
  //variables
  class var FCProp: Array [1..4] of Integer;
  //funcs & procs
  class function GetCProp(nIndex: Word): Integer; static;
  class procedure SetCProp(nIndex: Word; AValue: Integer); static;
public
  class property CProp[nIndex: Word]: Integer Read GetCProp Write SetCProp; default;
end;

  memo1.Lines.Add('Get TTestClass[1]: ' + IntToStr(TTestClass[1]));

  TestClass := TTestClass.Create;
  TestClass[1] := 34;
  memo1.Lines.Add('Get TestClass[1]: ' + IntToStr(TestClass[1]));
  TestClass.Free;

var s: string; isl1, isl2: IJclStringList;
...
isl1 := TJclStringList.Create; isl1.LoadFromFile(...);
...
for s in isl1 do begin
   isl2.Split(s, delimeter-char).Trim.Add(['some string', 'some another string']).UpperCase. ...; 
   // refining of strings can be chained

    // iterating through refined split data in isl2
end;

isl1 := TJclStringList.Create.LoadFromFile(...);

type
  TData = class end;  // some object we need to operate upon
  IDataHandler = interface end; //some methods to make Fluent-Style, daisy-chain API

  { TDataExporter }

  TDataExporter = class(IDataHandler, TInterfacedObject)
     protected
        Payload: TData;
        constructor CreateFor(const d: TData);
        class function    MakeNewExporter(const d: TData): IDataHandler; static;

        /// all other functions, setting this or that parameter and
        /// returning Self as IDataHandler

     public
        procedure AfterConstruction; override;

        class property Factory[Payload: TData]: IDataHandler read MakeNewExporter; default;
  end;                          


{ TDataExporter }

class function TDataExporter.MakeNewExporter(const d: TData): IDataExporter;
begin
  Result := TDataExporter.CreateFor(d);
end;

procedure TDataExporter.AfterConstruction;
begin
  if Self.Payload = nil then raise Exception.Create('You should not create via inherited TObject.Create!');
end;

constructor TDataExporter.CreateFor(const d: TData);
begin
  if d = nil then raise Exception.Create('Payload data is required!');
  Self.Payload := d;
end;                    

procedure TForm1.FormCreate(Sender: TObject);
var i: IDataHandler;
begin
  i := TDataExporter[TData.Create];
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: IDataHandler;  d: TData;
begin
  d := TData.Create;
  i := TDataExporter[d];
end;