TYPE TAB_pl_int IS TABLE OF NUMBER INDEX BY PLS_INTEGER;
 TYPE TAB_pl_str IS TABLE OF varchar2(500) INDEX BY PLS_INTEGER;
 TYPE TAB_pl_dt IS TABLE OF date INDEX BY PLS_INTEGER;

 procedure insert_buf(mDate         in TAB_pl_dt,
                                mString       in TAB_pl_str,
                               mInteger      in TAB_pl_int,
                               v_cnt           in number);

Result:= TFDStoredProc.Create(nil);
    Result.ResourceOptions.CmdExecMode := amBlocking;
    Result.FetchOptions.Items:= [];
    Result.ResourceOptions.SilentMode:= True;
    Result.Params.Clear;
    Result.StoredProcName:='insert_buf';
    Result.PackageName:= 'pkg';

    with Result.Params.Add do begin
      Name:= 'mDate';
      ArraySize:= ASize;
      ArrayType:= atTable;
      DataType:= ftDateTime;
    end;

    with Result.Params.Add do begin
      Name:= 'mString';
      ArraySize:= ASize;
      ArrayType:= atTable;
      DataType:= ftString;
      Size:= 10;
    end;

    with Result.Params.Add do begin
      Name:= 'mInteger';
      ArraySize:= ASize;
      ArrayType:= atTable;
      DataType:= ftInteger;
    end;

    with Result.Params.Add do begin
      Name:= 'v_cnt';
      DataType:= ftInteger;
    end;	

oProc.ExecProc;

procedure insert_buf(mDate       in TAB_pl_dt,
                   mString       in TAB_pl_str,
                   mInteger      in TAB_pl_int,
                   v_cnt         in number);

procedure insert_buf(mDate      in TAB_pl_dt,
                  mInteger      in TAB_pl_int,
                  mString       in TAB_pl_str,
                  v_cnt         in number);

with Result.Params.Add do begin
      Name:= 'mInteger';
      ArraySize:= ASize;
      ArrayType:= atTable;
      DataType:= ftInteger;
    end;

....
FDStoredProc.Params[0].Values[i]:= AInteger;
....

FDStoredProc.Parambyname('mInteger').Values[i]:= AInteger;