begin

  ClientDataSet1.FieldDefs.Add('id', ftAutoInc); // добавляем поля в "родительский" датасет

  ClientDataSet1.FieldDefs.Add('child_dataset', ftDataSet);

  with ClientDataSet1.FieldDefs[1].ChildDefs do // добавляем поля в "дочерний" датасет

  begin

    Add('id', ftAutoInc);

    Add('name', ftString, 20);

  end;

  ClientDataSet1.CreateDataSet; // создаем датасет.

 

  ClientDataSet1.Insert; // создаем строчку в родительском датасете

  with TDataSetField(ClientDataSet1.Fields[1]).NestedDataSet do

  repeat

    Insert;

    Fields[1].AsString := 'Бла бла бла';

    Post;

  until (RecNo > 9); // набиваем дочерний датасет десятьма записями

  ClientDataSet1.Post; // сохраняем данные в родительском датасете

/// (это можно сделать и до инсертов в дочернем, но по окончании добавления в дочерний, родительский останется в режиме редактирования)

 

  ClientDataSet1.Insert; // добавляем вторую строчку

  with TDataSetField(ClientDataSet1.Fields[1]).NestedDataSet do

  repeat

    Insert;

    Fields[1].AsString := 'Вторая строка с вложеным дата сетом';

    Post;

  until (RecNo > 9);

  ClientDataSet1.Post;

end;

with (ClientDataSet1.Fields[0] as TDataSetField).NestedDataSet do

  begin

    insert;

    FieldByName('my_text').AsString := 'Это вложеный дата_сет';

    post;

  end;

  with (ClientDataSet1.Fields[0] as TDataSetField).DataSet do

  begin

    insert;

    FieldByName('my_text').AsString := 'Это вложеный дата_сет';

    post;

  end;

ClientDataSet1.FieldDefs[1].ChildDefs[0] := Values[i, j];