var
  fSO: ISuperObject;
  fSOReplay: ISuperObject;
  fSOKeyboardItem: ISuperObject;

  fArr: ISuperObject;
  fInnerArr: ISuperObject;
  i: Integer;
  j: Integer;

begin
  fSO := SO();
  fSOReplay := SO();
  fSO.S['text'] := 'Please give us your phone number';
  fSO.O['replay_markup'] := fSOReplay;
  fSOReplay.B['resize_keyboard'] := true;
  fSOReplay.B['one_time_keyboard'] := true;

  fArr := SA([]);
  fSOReplay.O['keyboard'] := fArr; ;

  for i := 0 to 1 do begin
    fInnerArr := SA([]);
    fArr.AsArray.Add(fInnerArr);
    for j := 0 to 1 do begin
      fSOKeyboardItem := SO();
      fSOKeyboardItem.S['text'] := Format('Share my phone number %d %d', [i, j]) ;
      fSOKeyboardItem.B['request_contact'] := true;
      fInnerArr.AsArray.Add(fSOKeyboardItem);
    end;
  end;

  ShowMessage(fSO.AsJSon(True, False));

end;